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OBI (1) H 


D5-D4 




D7-BB 




OBI (1) H 


DS-C4 




DI-Bt 




PC (1) H 


Dt-Al 




KNll 




PC 1 (1) H 


Dt-Al 




KNll 




PC 3 (1) H 


St -At 




KNll 




PC J (1) H 


Dl-Al 




KNll 




PC 4 11) H 


Dl-Al 




KNll 




PC S (1) H 


Dt-Al 




KNll 




PC » 11) H 


Ot-Al 




KH11 




PC 7 (1) H 


Dt-Al 




KNll 




PC LOAD EH L 


Dt-Dl 




Dt-Al 




ROM OUT 


Dt-Ol 




03-CI 




RON OUT 1 


Ot-01 




03-CI 




ROM OUT 2 


Dt-Ol 




03-CI 




RON OUT 3 


Dt-Dl 




D3-CH 




RON OUT 4 


Dt-Dl 




03-CI 




RON OUT 5 


Dt-Dl 




03-01 




RON OUT 6 


Dt-Dl 




D3-DI 




RON OUT 7 


Dt-Dl 




D3-DI 




RX DATA OIL 


D5-C1. 


INTERFACE 


INTERFACE. 01 -Dl 




RX DONE L 


D5-01 




INTERFACE 




RX ERROR L 


05-01 




INTERFACE 




RX INIT L 


INTERFACE 


Dl-Bl 




RX OUT L 


D5-D1 




INTERFACE 




RX RUN L 


INTERFACE 


DI-DI ' 




RX SHIFT L 


D5-C1 




INTERFACE 




RX TRANSFER REQUEST 


D5-D1 




INTERFACE 




RX 12 KIT L 


INTERFACE 


DI-DI 




SEC BUF OVFLW H 


D4-A1 




Dl-Ct 




SEC BUF OUT (1) H 


D4-C1 




D5-C4, Ol-Bt 




SEC HUF M 


D5-H4 




D5-C4 




SFL <l) H 


03-At 




05-CN.Dt-CI.DR-Rt 


KNll 


SEL 1 (1) H 


03 -At 




05-CI.Dt-CI, DI-Bt 


KNll 


SEL 2 (1) H 


03-Bt 




O5-CN,0t-CR. Ol-Bt 


KNll 


SEL 3 (1) H 


DI-Bt 




D5-CR,0t-CI, DI-Bt 


KNll 


SEP CLK (!) H 


D4-B4 




Dl-Ct 




SEP DATA 11) H 


D4-B5 




D3-A2 




SEP OATA (1) I 


D4-B5 




D4-A2.D7-AI.DI-CI 




SR H 


05-B4 




DS-C4 




SR LOAD H 


D3-B1 




DI-C4 




SR MSB (1) H 


D3-D3 




05 -C4.DI-CI, Dl-Ct 




5Y« INDEX (1) H 


D5-A5 




Dl-Ct 





FLAG (I) 
FLO • L 
FLO I L 

run 

FLO J L 
FLD 4 L 
FLO S L 

HALT H 
HALT L 
HIGH 1 



DJ-B1 


Ol-Bt 


os-ot 


Dt-ll, Dt-Al 


Dt-Dl 


D*-I3.D*-B2 


Dt-D* 


DI-C1.DS-C2 


Dt-Dl 


Dt-tt,Dt-A4 


Dt-Dt 


D*-Bt.Dt-B4 


Dt-D* 


DI-CI.DI-C4 


D7-CI 


KNll 


KHI1 


D7-CT 


D7-C4 


DJ-Ot, DI-04, Dl-Ct, D1-C4.D4-A] 




D4-B1.D5-DS.M-AI 


D7-B4 


04-45, DS-B7,DS-AT,D5-D4.D7-D5 




D7-04, D7-C4,0T-C5.DI-D5,DI-B3 




DI-A5 


D7-B4 


D4-DI ,04-CI ,D4-D7 , 04-05 , 


D5-B2J 


Dl-Ct 



TPB H 
TP3 L 

TP4 H 
TP4 L 


D7-D1 
07-03 
07-02 
D7-DJ 




07-Ct,DI-l4,DI-C5 

D5-BI 

DI-CI 

DI-B2 


NRR CLK CNTR L 


DI-C2 




D3-B7 


20 NHI CLK 


D7-C5 




D4-CI.D4-D7 


GNO 

♦ 5V 

♦ 7V 

♦ 10V 


POHER 
POHER 
DI-A7 
POHER 


SUPPLV 

SUPPLI 

SUPPLI 


D1-A4 

D1-A4.DI-A7 
KNll 
Dl-Bl 



6? 

i 

;'■(£> 
S(M 



31/! 
i'J 



HIT »PC A I 


DI-A4 


Dl-Ct .01-B4 ,03-44 ,01-47 ,D4 
D4-BS .Dt-BI .D7-C5 ,DI-B2 


IBIT ♦ PC H 


DI-A4 


D4-D5.D4-C5, 07-04 


INIT « PC L 


DI-A4 


04-13, D5-B5, Dt-Al 


INST • <I) H 


D3-B4 


KH1I.DI-B5 


INST III L 


D3-M 


DB-C5 


INST t II) H 


Ol-Bt 


KMII 


IHT 1 (!) 1 . 


DI-Bt 


DI-BS 


IMI DIS H - 


Dl-Bl 


DI-C5 


IH1T DIS L 


Dl-Bl 


DR-B5 


INTERr BUSS H 


D5-D4 


D7-BI 


JUMP L 


DH-CJ 


D*-CI 


1,0 MR ♦ CIA PC L 


DI-CI 


Dt-A«,D1-A» 


LD SCRATCH PAD I 


0*1 tit 


1)3-111 


MAIBT DIS L 


TEST PAO 


Dl-Bl 


Nil CU (1> L 


D4-C4 


DI-CI 


moni 


D1-C7 


Dt-Al 


won i 


01-C7 


Dt-Al 


am nit : - 


D1-C7 


Dt-Al 


■ Nil 


D1-C7 


Dt-M 


K-JI OUT 4 


D1-C7 


Dt-BS 


MUX OUT 5 


D3-D7 


Dl-Bl 


NUI OUT t 


D3-D7 


Dt-BI 


MUX OUT 7 


Dl-07 


Dt-BI 



sr 



r 
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t 

2 

1 

a 
5 
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7 

a 
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11 

12 
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17 

16 
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25 
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26 

29 
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34 
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36 
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43 
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47 

48 

49 

50 

51 
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53 

54 

55 



/HX01 FLOPPY CONTROLLER FIRMWARE 



/THIS 8YHBOL TABLE REPLACES THE NORMAL »AL SYMBOL TABLE AND DEFINES 
/THE INSTRUCTIONS POSSIBLE BY THE RX01 CONTROLLER 



/DO INSTRUCTIONS 



0002 


SET»2 


0000 


CLRb0 


0002 


0NE»2 


0000 


ZEROB0 


0000 


IOB0B0 


0004 


lOStatt 


0010 


IOB2»10 


0014 


I0H3B14 


0020 


IOB4«20 


0024 


I0B5s24 


0.330 


IOB6S30 


0000 


INTERFaCLR IOB0 


0002 


OISKBSET 1060 


0004 


ERRbIOBI 


0010 


XBE0»I082 


0014 


I00UTBI0B3 


0020 


0ONESIOB4 


0024 


SHIFT»I0B5 


003k) 


SEC0ATSI0B6 


0004 


WGATEsIOBl 


001.0 


STPHD»I0B2 


0014 


HO0UT=I0B3 


0020 


EGATE=I084 


0024 


L0WCURSI0B5 


0034 


UN.TT»34 


0040 


UNHQS40 


0042 


L0HDB42 


0044 


BAR=44 


0001 


LON&xl 


0000 


SHORTB0 


0002 


INCRB2 



/INTERFACE-DISK BUSS OUTPUT BUFFER 



/IOB0 SELECTS EITHER INTERFACE OR DISK BUSS. 
/SETbDISK 



CLRs INTERFACE 



/INTERFACE BUFFER DEFINITIONS 

/SET TO INDICATE THAT AN RX01 ERROR HAS OCCURED 

/SET TO REQUEST AN RX01 KORO TRANOFER 

/DIRECTION FOR DATA LINE. SEToTO INTERFACE 

/SET TO INDICATE RX01 REAOYNESS TO ACCEPT A COMMAND 

/SHIFT FOR DATA LINE 

/SELECTS SOURCE FOR DATA OUT OF CONTROLLER ON DATA LINE 

/SETaSECTOR BUFFER CLRsSHIFT REGISTER MOST 8IG BIT 

/DISK BUFFER DEFINITIONS 

/WRITE CURRET ENABLE WHEN SET 

/HEAD STEP. TWO PULSES REQUIRED FOR EACH TRACK 

/DIRECTION OF HEAD MOTION 

/ERASE CURRENT ENABLE 

/SPECIFIES WRITE CURRENT LEVEL 

/SELECTS ONE "F TWO DRIVES, UNIT (ZERO) (ONE) 

/DEACTIVATES HEAD LOAD SOLONOID OF SELECTED DRIVE 
/ACTIVATES HEAD LOAD SOLONOID OF SELECTED DRIVE 

/SECTOR BUFFER ADDRESS REGISTER CONTROL 

/FORMATl CLR BAR (SHORT) (LONC) 

/SHORT PRESETS FOR COUNT OF 1024 

/LONG PRESETS FOR COUNT OF 4096 

/FORMATl INCR BAR INCREMENT THE BUFFER ADDRESS REG, 



o 
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57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
66 
69 
70 
71 
72 
73 
74 
'5 
76 
77 
78 
79 
60 
61 
62 
83 
64 
85 
86 
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0050 
0003 
0000 


WRTBUF*50 

STARTS3 

FINS0 


0054 


CRC»54 


0057 
0055 


PRECRC»57 
DATCRCa'JiS 


0060 
0C02 
0001 
0003 


FLAGS60 
0N»2 
OFFbI 
T0Gb3 


0064 


LSP-64 


0070 
0071 
0073 


LCT»70 
ESPb71 
ICTB73 


0074 


R0TATEB74 


0075 

0077 


LSRb7S 
DATSRB77 



/SECTOR BUFFER WRITE CLOCK 

/FORMATl (STPATHFIN) WRTBUF 

/A 750NS MINI"UM PULSE IS REQUIRED 

/CRC REGISTER CONTROL 

/FORMATl CRC (ONE) (ZERO) SPECIFIES DATA TO 

/BE JAMMED INTO CRC GENERATOR/CHECKER 

/PRESETS CRC REG TO ALL ONES 

/SHIFTS SEPERATED DATA INTO CRC CIRCUIT 

/GENERAL PURPOSE FLAG CONTROL 
/FORMATl FLAG (ON) (OFF) (TOG) 
/SET FLAG 
/CLR FLAG 
/TOGGLE FLAG 

/LOAD OPEN SCRATCHPAD REG WITH CONTENTS OF SHIFT REG 

/LOAD COUNTER WITH CONTENTS OF NEXT ROM LOCATION 
/LOAD COUNTER WITH CONTENTS OF OPEN SCRATCHPAD 
/INCREMENT COUNTER 

/SHIFT REGISTER CONTROL 

/FORMATS ROTATEf ONE) (ZERO) 

/SHIFTS SHIFT REG TOWARDS MOST SIGNIFICANT BIT 

/WHILE INSERTING A ONE OR ZERO INTO THE LEAST 

/SIGNIFICANT BIT 

/LOAD SHIFT REGISTER WITH CONTENTS OF COUNTER 

/SHIFT REG TO"AROS MSB WHILE INSERTING 6EPCRATED 

/DATA INTO LS« 



«» 
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O 

o 



87 
SS 
89 
90 
91 
92 
93 

9a 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

lie 

in 

112 
113 

u« 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 



/BRANCH INSTRUCTIONS AND CONDITIONS 



0100 



0300 



0000 



BR«100 



WBR'300 



0000 


PbZERO 


0002 


TbONE 


0001 


IND«1 



PUN50 



0004 


I0B30T=4 


0010 


DATA1NS10 


0014 


INDXB14 


0B2C 


SR7»20 


0024 


C0FLS24 


0030 


CRC16S30 


0034 


H0MEB34 


0040 


WRTENB40 


0044 


8EPCLKS44 


0050 


XIIBITS50 


0054 


DEQSR7B54 


0060 


BAROFL=60 


0064 


M CEQSR=64 


0070 


BDATA0s7B 


0£74 


FLAG0S74 



/FORMATl BR CONO (T) (F) (ONE) (ZERO) 

/IF CONDITION JS MET, A BRANCH IS MADE WITHIN 

/THE CURRENT 'IFLD USING THE CONTENTS OF THE 

/NEXT ROM LOCATION AS THE BRANCH ADORESS 

/IF THE CONDITION IS NOT MET, THE NEXT ROM LOCATION 

/IS IGNORED AMD THE FOLLOWING INSTRUCTION IS EXECUTED 

/FORMAT! WBR COND (T)(ONE) 

/THE COUNTER IS INCREMENTED WITH EVERY EXECUTION OF 

/THIS INSTRUCTION, THE WBR IS REPEATEDLY 

/EXECUTED UNTILL EITHER THE COUNTER 0VERFL0W8 OR 

/THE CONDITION TS MET. IF THE CONDITION 10 KET 

/THE BRANCH 15 MADE, IF THE COUNTER OVERFLOWS 

/THE BRANCH ADDRESS IS IGNORED AND THE NEXT INSTRUCTION 

/IS EXECUTED 

/REQUIRES THE CONDITION TO BE FALSE 

/REQUIRES THE CONDITION TO BE TRUE 

/IF APPENDED TO THE JUMP, BR OR WDR INSTRUCTION, 

/CAUSES THE BRANCH ADDRE8S TO BE TAKEN FROM THE 

/OPEN SCRATCHPAD RATHER THAN FROM THE NEXT ROM LOCATION 



/WHEN ASSERTED 
/SERVICED A T<?A 
/IS PENDING 
/INTERF/DISK OU 
/BIDIRECTIONAL 
/DRIVE INDEX LA 
/SHIFT REGISTFR 
/OVERFLOW (ALL 
/BIT 16 OF CRC 
/TRACK ZERO OF 
/DIRECTION »EIN 
/WRITE ENABLE" 
/SEPERATED CLOC 
/ASSERTED IF "N 
/12 BIT WORDS R 
/SEPERATED DATA 
/OVERFLOW CONOI 
/ADDRESS REGIST 
/MISSING CLOCK 
/OUTPUT OF SECT 
/STATE OF GEMER 



INDICATES THAT THE INTERFACE HAS 
NSFER REQUEST, OR THAT A COMMAND 

TPUT BUFFER BIT 3 

DATA LINE BETWEEN INTERFACE AND CONTROLLER 

TCH 

MOST SIGNIFICANT BIT 
ONES) OF THE COUNTER 
GENERATOR/CHECKER 
SELECTED DRIVE ANDED WITH HEAD 
R OUT 

STATUS OF THE SELECTED DRIVE 
K FROM DISK DATA 
TERFACE TRANSFERS ARE TO BE AS 
ATHER THAN 8 BIT BYTES 

EQUAL TO SHIFT REG BIT 7 
TION (ALL ONES) OF THE SECTOR BUFFER 
FR 

FQUAL TO SHIFT REG BIT 7 
OR BUFFER 
»L PURPOSE FLAG 
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133 

134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
146 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 



/SCRATCHPAD REGISTER SELECTION 



0200 


OPEN«200 


0BC0 


R0eg 


0004 


R1&4 


0010 


R2=ie 


0014 


R3S14 


0023 


R4 = 20 


0024 


R5»24 


0030 


R6&30 


0034 


R7s34 


0040 


R8S40 


0044 


R9S44 


0050 


R10B50 


0054 


Rlle54 


0060 


R12=60 


0064 


R13B64 


0070 


R14s70 


0074 


R15s74 


0000 


CURTK0BR0 


0004 


CURTKlaRl 


0010 


E»REG=R2 


0014 


STATsR3 


0020 


TARTRKSR4 


0024 


TARSECsRS 


0030 


TEMPABR6 


0034 


TEMPBsR7 


0040 


TEMPCsRB 


0044 


TEMPDSR9 


0050 


TEMPEsRlB 


0054 


TEMPFsRU 


0060 


TEMPG»R12 


0064 


RTN8BR13 


0070 


RTNA&R14 


0074 


RTNbRIS 



/FORMAT j OPEN X WHERE X IS ONE OF THE SCRATCHPAD REG 
/THIS INSTRUCTION MAKES THE NAMED SCRATCHPAD 
/ACCESSABLE VTA THE LSP AND ESP COMMANDS 

/DEFINITIONS OF SCRATCHPADS BY R# 



/DEFINITION OF SCRATCHPADS BY PNEUM0NIC5 

/CURRENT TRACK ADDRESS OF DRIVE 

/CURRENT TRACK ADDRESS OF DRIVE 1 

/DEFINITIVE EPROR CODE IF ANY 

/STATUS WORD HF RX01 

/TARGET TRACK OF CURRENT DISK ACCESS 

/TARGET SECTOR OF CURRENT DISK ACCESS 

/TEMPORARY STORAGE 

/TEMPORARY STORAGE 

/TEMPORARY STORAGE 

/BIT 7 IS UNIT SELECT BIT, 

/BIT 7 IS HEAD LOADED BIT, 

/TEMPORARY STORAGE 

/TEMPORARY STORAGE 

/RETURN ADDRESS FOR 3RD LEVEL NESTED SUBROUTINES 

/RETURN ADDRESS FOR 2ND LEVEL NESTED SUBROUTINES 

/RETURN ADDRESS FOR 1ST LEVEL SUBROUTINES 



MEANS UNIT 1 

1 MEANS HEAD LOADED 



'RX01 FLOPPY CONTROLLER FIRMWARE P*L10 V1U2A 9-F£B-7ft 9U7 PAGE a 

175 /jump INSTRUCTION AND JUMP FIELD DEFINITIONS 

I77 a?*? JUMP.2C2 /FORMAT! JUMP ex (IND) 

J" iZ * Z J"""*" /CAUSES A 8RANC" TO ONE OF SIX ROM FIELDS (0-5) 

\H /SPECIFIED BY X. THE BRAKH ADDRESS IS TAKEN FROM 

};' /THfc ROM LOCATION FOLLOWING THE JUMP INSTRUCTION. 

*°V /IF IND IS APBE'IDED, THE BRANCH ADDRESS 

\l\ /IS TAKEN FRO" THE OPEN SCRATCH PAD 

183 

164 

185 
166 
187 
188 
189 



eeua 


F0«0 


0204 


Flau 


«a ie 


Fa=ie 


0IO1U 


F3sia 


0020 


FUS20 


0024 


FS = 24 
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150 
191 

192 
193 
194 
195 
196 
197 
198 /TABLE OF DEFINITIVE ERROR CODES 



199 

200 
201 
202 



(8»10 KNXOV3«10 /DRIVE FAILED TO SEE HOME ON INITIALIZE 

0220 KNXDV182I" /DRIVE 1 FAILED TO SEE HOME ON INITIALIZE, DOES NOT CAUSE ERROR 

PB30 K^SCNG=30 /FOUND HOME W«E M STEPPING IN 10 TRACKS FOR INIT 

2B3 ?f >a(? KERTRK«43 /TRIED TO ACCFSS A TRACK GREATER THAN 76 

22u BB 50 KHOME-RRs5a /HOME rtAS FOU^D BEFORE DESIRED TRACK MAS REACHED 

225 0t>.6(» KSELFERS60 /SELF DIAGNOSTIC ERR 

Z9b z?iv knXmDR»70 /DESIRED SECTOR COULD NOT BE FOUND AFTER LOOKING 

237 /AT 52 HEADERS 

2t, e 0103 k*PROT=100 /WHITE FUNCTI n N ATTEMPTED ON A WRITE PROTECTED DISK 

209 pile KTIMERRS110 /MORE THAN 40 MTCHOSECONDS AND NO SfcPCLOCK SEEN 

21 Z 0120 KNXPRAM=123 /A PREAMBLE COULD NOT BE FOUND 

2U 0i30 KNXIDAMS130 /PREAMBLE FOU'-'D BUT NO ID MARK FOUND WITHIN ALLOWABLE TIME 

212 5. lit KHCPCERsl40 /CRC ERROR ON HMA T APPEARED TO BE A HEADER. ERROR IS NOT ASSERTED 

21 j 0150 KTKSKtR=150 /THE TRACK ADDRESS OF A GOOD HEADER DOES NOT COMPARE 

21i, /WITH THE OESIRFD TRACK 

215 0160 KXSTRYSsl60 /TOO MANY TRI1S FOR AN IDAM 

216 {117JD KN0DAMsl7fl /DATA AM NOT cO"MD IN ALLOTTED TIME 

217 0200 KDCRCER=200 /CRC ERROR ON READING THE SECTOR FROM THE DISK 

218 02i« KPARER=210 /PARITY ERROR K > SOME WORD FROM THE INTERFACE 
219 
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« 



O 

o 

e 



220 
221 
222 

223 

224 
22S 
226 
227 
226 
229 
230 
231 
232 
233 
234 
235 
236 
237 
236 
239 
240 
241 
242 
243 
244 
245 
246 
247 
246 
249 
250 
251 
252 
253 
254 
255 
256 
257 
256 
259 
260 
261 
262 
263 
264 
265 
266 
267 
266 
269 
270 
271 
272 
273 
274 



0000 
0001 

0002 
0003 

0004 

0005 

0006 
0007 
0010 

0011 
0012 
0013 
0014 
0015 
0016 
0017 
0020 
0021 

0022 
0P23 
0024 
0025 
0026 



0032 
0P31 
0032 
0033 



0000 



0210 
0064 

0222 
2352 

0070 

0004 

0075 
0214 
0064 

0070 
0377 
0075 
0244 
0064 
0200 
0064 
0204 
0064 

0074 
0224 
0064 
0220 
0064 



01527 0002 



0070 
0034 
1222 
2145 



/[ROUTINEl INITIALIZE] IF A HOST PROCESSOR INITIALIZE f'R AN 

/RX01 POKER LOW IS DETECTED, THE PC I* CLEARED AND THE RX01 TIMING 

/STOPS, UPON THE NEGATION OF INITIALIZE, TIMING RESUMES AND A SELF TEST OF 

/INTERNAL DATA PATHS IS MADE, IF AN PRROR OCCURS HERE, ERROR AND 

/DONE ARE SET, BUT ERRE6 IS NOT ALTERED, THEN IF NO ERROR HAS OCCURRED AN ATTEMPT 

/IS MADE TO RECALABRATE DRIVE 1 THEN ORIVE B. IF DRIVE FAILS TO RECALIBRATE, 

/THE ERROR CODE IS LOADED INTO ERREG AND ERROR IS SET, IF DRIVE 

/0 RECALIBRATES AND IS READY (DISK LOADED) SECTOR ONE OF TRACK ONE 

/IS READ INTO THE SECTOR BUFFER, IT IS POSSIBLE FOR A READ ERROR 

/TO OCCUR WHILE READING THIS SECTOR, 



0034 0036 



0035 0014 



*0000 

DECIMAL 

OPEN ERREG 
LSP 

JUMP F4 
TEST 

TSTRTN, LCT 

OCTAL 

4 

DECIMAL 

I CO 

OPEN STAT 
LSP 

LCT 
-1 

LSR 

OPEN TEMPD 

LSP 

OPEN CURTK0 

LSP 

OPEN CURTK1 

LSP 

ROTATE ZERO 

OPEN TAHSEC 

LSP 

OPEN TARTRK 

LSP 

DISK 

LCT 

RECAL1 
JU^P F4 
DLY25 

RECAL1, UNIT ONE 

RECAL0, CLR HOOUT 



/CLEAR ERROR ^SISTER 

/GO DO THE INTTIALIZE DIAGNOSTIC ROUTINE 

/RETURN FROM SUCCESSFUL DIAGNOSTIC ROUTINE 

/SET THE INIT DONE BIT OF STAT 

/SET UP SOME SCRATCHPAD REGISTERS 

/UNIT TO SOFT UNIT BIT 

/NEG ZERO TO ROTH CURRENT TRACK ADDRESSES 

/NEG ONE TO TARGET SECTOR 

/NEG ONE TO TARGET TRACK FOR INITIALIZE BOOTSTRAP 

/SELECT DISK "USS 

/CALL SUBROUTINE TO LOAD HEAD AND WAIT 25 MS 
/TO ALLOW POWER UP DRIVE SETTLE TIME 

/SELECT UNIT ONE FOR RECALIBRATE 

/STEP HEAD IN l* TRACKS TO ASSURE IT IS NOT BEHIND TRACK 
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• 


275 


0036 


0070 




LCT • 




276 


0037 


0365 




-10-1 




277 


0040 


0075 




LSR 


• 


278 


0041 


0070 




LCT 




279 


0042 


0045 




1MB 




280 


0043 


0222 




JUMP F4 


» 


261 


0044 


2100 




STEPHD 




262 












263 


0045 


0226 


IMB» 


JUMP F5 


a> 


264 


0046 


2621 




WRONG 




285 












266 


0047 


0016 




SET HDOUT 


«► 


287 


0050 


0070 




LCT 




288 


0051 


0257 




-80-1 




269 


0052 


0075 




LSR 


• 


290 


0053 


0070 




LCT 




291 


0054 


0060 




RCALOK 




292 


0055 


0040 




UNHD 


4> 


293 


0056 


0222 




JUMP F4 




2°4 


0057 


2100 




STEPHD 




295 










d 


296 


0060 


0202 


RCALOK, 


JUMP F0 




297 


0061 


0075 




WHCHDR 




298 










O 


299 


0062 


0174 




8R FLAGO F 




300 


0063 


0070 




NXDRV1 




301 












302 


0064 


0070 


NXDRV0I 


LCT 




303 


0065 


0010 




KNXDV0 




304 


0066 


0226 




JUMP F5 




305 


0067 


2610 




GOERDN 




306 












307 


0070 


0070 


NXDRV1, 


LCT 




308 


0071 


0020 




KNXDV1 




309 


0072 


0075 




LSR 




310 


0073 


0210 




OPEN ERREG 




311 


0074 


0064 




LSP 




312 












313 


0075 


0176 


WHCHDR, 


BR FLAGO T 




314 


0076 


0372 




PDNRCL 




315 












316 


0077 


0062 




FLAG ON 




317 












316 


0100 


0034 




UMT ZERO 




319 












320 


0101 


0202 




JUMP F0 




321 


0102 


2035 




RECAL0 



/ERROR, HOME W»S SEEN WHILE STEPPING IN, 

/STEP OUT AS "'ANY AS 80 TRACKS IN SEARCH OF HOME 



/HOME WAS FOUND OK 

/IF FLAGs0 RECALIBRATE WAS ON DRIVE 1 

/RECALABRATE FAILURE WAS ON DRV 



/RECAL FAILURE WAS ON DRV 1, LOG ERROR 
/AND CONTINUE RECALIBRATION 



/IF FLAGsl BOTH DRIVES HAVE BEEN RECALIBRATED 
/SET FLAG TO INDICATE DRV IS BEING RECALIBRATED 

/GO BACK AND RECALIBRATE DRV0 



/RX01 FLOPPY CONTROLLER FIRMWARE 
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<t> 



322 
32} 

32a 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
346 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 

364 

365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 



0103 
0104 
0105 

0106 
0107 
0110 
0111 
0112 

0113 
0114 
0115 

0116 
0117 

0120 
0121 

0122 

0123 

0124 



0125 
0126 

0127 
0130 



0134 
0135 



0075 
0274 
0064 

0070 
0000 
0075 
0210 
0064 

0244 
0071 

0075 

0122 
0127 

0174 
0141 

0034 

0070 

0200 



0202 
0134 

0176 

0141 



0131 0036 

0132 0070 

0133 000E 



0075 
0064 



•[SUBROUTINE! FINDTRACK] 

/THIS SUBROUTINE IS USED TO LOCATE A SPECIFIED SECTOR, IT PICKS 
/UP THE TRACK ANO SECTOR ADDRESS FROM THE INTERFACE, CHECK8 THAT 
/THE TRACK ADDRE8S IS LEGAL (NOT GREATER THAN 114 OCTAL,), MOVES THE 
/HEAD OF THE SELECTED DRIVE TO THE SPPCIFIED TRACK, VERIFIES 
/TRACK POSITION, AND L0CATE8 THE CORRECT SECTOR, EXIT FROM 
/THIS SUBROUTINE OCCURS AT WRITE TURN ON TIME Of THE SELECTED, 
/SECTOR, ENTRANCE IS MADE WITH THE RETURN ADDRESS IN THE COUNTER 



FINDTR, LSR 

OPEN RTN 
LSP 

LCT 



LSR 

OPEN ERREG 

LSP 

OPEN TEMPD 

ESP 

LSR 

BR SR7 ONE 
UZERO 



UONE, 



UDIF, 



/SAVE THE RETURM ADDRESS 



/CLEAR THE ERROR REGISTER 



/SOFT UNIT BIT TO SR 



/IF SR«1 DRIVE IS CURRENTLY SELECTED 



BR FLAGO ZERO /IF FLAG«0 DRIV5 1 IS DESIRED AND ALREADY SELECTED 
USAME 



UNIT ZERO 

LCT 
OCTAL 
2P0 
DECIMAL 

JUMP FO 
UDIF 



/DRIVE IS DESIRED AND DRIVE1 WAS SELECTED, SELECT 
/SET UP SOFT UNIT SELECT AS DRIVE 

/GO STORE SOFT UNIT BIT 



UZERO, BR FLAGO ONE /IF FLAGal DRIVE IS DESIRED AND ALREADY SELECTED 

USAME 



/DRIVE 1 IS DTSTRED BUT DRIVEO IS SELECTED, SELECT DRIVE 1 
/SET UP SOFT i.'NTT SELECT BIT AS DRIVE 1 



0136 B074 



UNIT 
LCT 




ONE 


LSR 
LSP 




ROTATE ZERO 



/STORE SOFT U'-'IT SELECT BIT 



/CLH SOFT HD LO»D BIT BE.CAUSE UNITS CHANGED 



/RX01 FLOPPY CONTROLLER FIRMWARE 



PAL10 



V142A 9-FEB-76 



9117 PAGE 7-1 



377 


0137 


0250 


OPEN TEMPE 


378 


0140 


0064 


LSP 


379 








380 


0141 


0070 


USAME, LCT 


381 


0142 


01"5 


PUTSEC 


382 


0143 


0222 


JUMP F4 


383 


0144 


2000 


GETWRD 


384 








385 








38b 


0145 


0070 


PUTSEC, LCT 


387 


014b 


0370 


-7-1 


388 


0147 


0076 


ROTATE ONE 


369 


0150 


0126 


BR COFL T 


390 


0151 


0160 


. + 7 


391 


0152 


0073 


ICT 


392 


0153 


0122 


BR SR7 T 


393 


0154 


0147 


.-5 


394 


0155 


0074 


ROTATE ZERO 


3vS 


0156 


0202 


JUMP F0 


396 


0157 


0150 


.-7 


397 








398 


0160 


0224 


OPEN TARSEC 


399 


0161 


0064 


LSP 


400 








401 


0162 


0070 


LCT 


402 


0163 


0166 


PUTTRK 


403 


0164 


0222 


JUMP F« 


404 


0165 


2000 


GETWRD 


405 








406 








407 


0166 


0220 


PUTTRK, OPEN TARTRK 


408 


0167 


0064 


LSP 


409 








410 


0170 


0254 


OPEN TEMPF 


411 


0171 


0064 


LSP 


412 


0172 


0260 


OPEN TEMPG 


413 


0173 


0070 


LCT 


414 


0174 


0262 


-77-1 


413 


0175 


0075 


LSR 


416 


0176 


0064 


LSP 


417 








418 


0177 


0070 


LCT 


4|9 


0200 


0206 


ILTRK 


420 


02ei 


0075 


LSR 


421 


0202 


0270 


OPEN RTNA 


422 


0203 


0064 


LSP 


423 


0204 


0226 


JUMP F5 


424 


0205 


2400 


MAGCOM 


425 








42b 








427 


0206 


0202 


ILTRK, JUMP F0 


428 


0207 


0242 


ERTRK 


429 


0210 


0202 


JUMP F0 


430 


0211 


0242 


ERTRK 


431 









/CALL GETWORD SUBROUTINE FOR THE SECTOR ADDRESS 



/MAKE FIRST BIT OF COMPLIMENTED SECTOR ADDRESS A I REGARDLESS OF DATA 



/PUT THE TARGFT SECTOR AWAY 



/CALL GETWRD SUBROUTINE FOR TRACK ADDRESS 



/STASH THE TRACK ADDRESS 



/START SETUP FO" COMPARING THE 
/TARGET TRACK AND TRACK 76 
/Fe TARGET TRACK 
/G« 77 



/CALL SUBR MAGCOM TO SEE IF TARGET TRACK 
/IS GREATER THAN 114 OCTAL, 76 DECIMAL. 



/TARGET TRACK IS 77, ILLEGAL ADDRESS 
/GO, REPORT T«E ERROR 
/TARGET TRACK IS GREATER THAN 77 
/GO, REPORT THE ERROR 



/RX01 FLOPPY CONTROLLER FIRMWARE 
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452 


0212 


0244 


OPEN TEMPO 


433 


0213 


0071 


E8P 


434 


0214 


0075 


LSR 


435 








436 
437 
43S 


0215 


0200 


OPEN CURTK0 


0216 


0002 


DISK 


439 








440 


0217 


0122 


BR SR7 ONE 


441 


ezze 


0222 


.♦2 


442 


0221 


0204 


OPEN CURTK1 


443 








444 


0222 


0071 


ESP 


445 


0223 


0075 


LSR 


446 


0224 


0260 


OPEN TEMPG 


447 


0225 


0064 


LSP 


446 








449 


0226 


iZZt 


OPEN TARTRK 


450 


0227 


0071 


ESP 


451 


0230 


0075 


LSR 


452 


0231 


0254 


OPEN TEMPF 


453 


e232 


0064 


LSP 


454 


0233 


0070 


LCT 


455 


0234 


0246 


TRKEQ 


456 


0235 


0075 


LSR 


457 


0236 


0270 


OPEN RTNA 


456 


0237 


0064 


LSP 


459 


0240 


0226 


JUMP F5 


460 


0241 


2400 


MAGCOM 


461 








462 








463 


0242 


0070 ERTRKf LCT 


464 


0243 


0040 


KERTRK 


465 


024« 


0226 


JUMP F5 


466 
467 
466 


0245 


2610 


GOERDN 








469 


0246 


0202 TRKfQ, Jump F0 


470 


0247 


0357 


NOSTPS 


471 


0250 


0270 


OPEN RTNA 


472 
473 
474 


0251 


0270 


OPEN RTNA 


0252 


0270 BOOT, OPEN RTNA 


475 


0253 


0070 


LCT 


476 


0254 


0275 


STPOUT 


477 


0255 


0075 


LSR 


478 


0256 


0064 


LSP 


479 








460 


0257 


0244 


OPEN TEMPD 


461 


0260 


0071 


esp 


462 


0261 


0075 


LSR 


463 








484 


0262 


0204 


OPEN CURTK1 


465 








466 


0263 


0120 


BR SR7 ZERO 



/TARGET TRACK IS OK, GET THE DRIVE 
/SELECT FROM TE"PO 



/PRESELECT UNIT 

/SELECT DISK BUSS 

/WHICH UNIT 3FIECTED? BIT7»0 MEANS UNIT ONE 
/ZERO, SKIP UNIT \ SETUP 

/PASS SELECTED CURRENT TRACK TO HAGCOM 8UBR 



/PASS TARGET TRACK TO MAGCOM SUBROUTINE 



/CALL SUBROUTINE MAGCOM TO SEE IF TARGET 

/IS SAME A3 CURPENT TRACK. F«TARGET, GsCURRENT 



/TRIED TO ACCESS A TRACK GREATER THAN 76 DECIMAL 



/TARGET EQUALS THE CURRENT TRACK, NO 

/STEPS ARE REOUTRED 

/NOOP> TARGET » ACTUAL RETURN 

/NOOP 

/TARGET IS LESS THAN ACTUAL, STEPS NEEDED ALSO START OF 
/OF BOOT SUBROUTINE, SET UP RETURN FROM DXF SUBR 



/SOFT UNIT SELECT BIT TO SR7 

/PRESELECT UNIT I 
/SR7»0 MEANS UNIT ONE 



/RX01 FLOPPY CONTROLLER FIRMWARE 
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487 


0264 


0266 


. + 2 


468 


0265 


B200 


OPEN CURTK0 


489 








490 


0266 


0071 


ESP 


491 


0267 


0075 


LSR 


492 








493 


P270 


0220 


OPEN TARTRK 


494 


0271 


0071 


ESP 


495 








496 


0272 


0016 


SET MDOUT 


497 








498 


0273 


0226 


JUMP F5 


499 


0274 


2462 


OIF 


500 








501 








502 


0275 


ezzz 


STPOUT, JUMP F0 


503 


0276 


0300 


.+2 


504 








505 


0277 


0014 


CLR HOOUT 


*06 








507 


0300 


0070 


LCT 


508 


0301 


0305 


DUNSTP 


509 








510 


0302 


0040 


UNHD 


511 








512 


0303 


0222 


JUMP F4 


513 

514 
515 


0304 


2100 


STEPHD 








516 


0305 


0226 


DUN8TP, JUMP F5 


517 


0306 


2456 


HOMERR 


518 








519 


0307 


0244 


OPEN TEMPD 


520 


0310 


0071 


ESP 


521 


0311 


0075 


LSR 


522 


0312 


0220 


OPEN TARTRK 


523 


0313 


0071 


ESP 


524 








525 


0314 


0200 


OPEN CURTK0 


526 


0315 


0122 


BR SR7 ONE 


527 


0316 


0320 


. + 2 


526 
529 


0317 


0204 


OPEN CURTK1 


530 


0320 


0075 


LSR 


531 


0321 


0064 


LSP 


532 








533 








534 


0322 


0220 


HDSETL, OPEN TARTRK 


535 


0323 


0071 


ESP 


536 


0324 


0075 


LSR 


537 


0325 


0254 


OPEN TEMPF 


538 


0326 


0064 


LSP 


S39 








540 


0327 


0070 


LCT 


541 


0330 


0323 


«44»1 



/PA5S SELECTED CURRENT TRACK TO DIFF SUCR VIA 8R 

/PASS TARGET TRACK TO DIF VIA CNTR 

/ASSUME A STEP OUT 

/GO TO THE SUBROUTINE DIF TO CALCULATE THE STEPS NEEDED 



/TARGET TRACK IS LESS THAN 

/THE ACTUAL, "OVE OUT IS NECESSARY 

/TARGET IS GRF.ATER THAN ACTUAL, STEPS IN NEEDED 

/COMPLEMENT OF STEPS REQUIRED IS IN THE 
/SHIFT REG. SET UP RETURN FROM STPHD SUBR 

/UNLOAD HEAD BEFORE MOVING 

/CALL SUBROUTINE STEPHD 



/HOME FOUND BEFORE LAST STEP TAKEN 
/SOFT UNIT BIT TO SR7 



/GET READY TO PASS TARGET TRK TO PROPER 
/CURRENT TRACK 

/OPEN PROPER CURRENT TRACK REGISTER 
/BIT780 MEANS UNIT ONE 



/UPDATE THE CURRENT TRACK ADDRESS 



/HEAD IS SETTLED DETERMINE IF ABOVE TRACK 43 DECIMAL 
/PASS TARGET TO MAGCOM VIA TEMPF 



/PASS 44 TO MAGCOM VIA TEMPG 



/RX01 FtOPPV CONTROLLER FIRMWARE 
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502 


0331 


0075 


L8R 


543 


0332 


0260 


OPEN TEHPO 


50a 


0333 


0064 


L6P 


505 








506 


0330 


0026 


SET LOWCUR 


507 








508 


0335 


0070 


LCT 


509 


0336 


0344 


A0V43 


550 


0337 


0075 


LSR 


5S1 


0300 


0270 


OPEN RTNA 


552 


0341 


0064 


LSP 


553 


0342 


0226 


JUMP F5 


554 


0343 


2400 


MAGCOM 


555 








556 








557 


0344 


9MZ 


ABV03, JUMP F0 


558 


0345 


0346 


.♦I 


559 








560 


0346 


0202 


JUMP F0 


561 


0347 


0351 


.♦2 


562 








563 


0350 


0024 


CLR LOkCUH 


564 








565 


0351 


0070 


CFINSEf LCT 


566 


0352 


0355 


RFINTH 


567 


0353 


0206 


JUMP Fl 


568 


0354 


0714 


FIM09E 


569 








570 


e355 


0274 


RFIKTR, OPEN RTN 


571 


0356 


0207 


Jump fi ino 


572 








573 








574 


0357 


0250 


NOSTPS, OPEN TEMPE 


575 


0360 


0071 


ESP 


576 


0361 


C075 


LSR 


577 








578 


0362 


0122 


6<? SR7 ONE 


579 


0363 


0322 


HDSETL 


see 








581 


0364 


0070 


LCT 


582 


0365 


0322 


HDSETL 


583 


0366 


0222 


jump fa 


584 


0367 


2145 


0LV25 


585 








586 








587 


0370 


0212 


PFUNCT, JUMP F2 


568 


0371 


1036 


FUNCT 


589 








590 


0372 


0226 


PDNRCL, JUMP F5 


591 


B373 


2625 


CNRCAL 


592 








593 


037« 


0000 





594 


0375 


0000 





595 


0376 


0^00 





596 


0377 


0000 






/ASSUME TARGET GREATER THAN 43 

/CALL NAGCOM 8UGR0UTINE 
/RETURN ADDRES3 



/KOOP F«S RETURN, ABOVE TRK 43 
/NOOP 

/F<G| ABOVE TRACK 43 



/F>6» BELOw TRACK 43, WRITE WITH HIGH CURRENT 
/CALL FINDSEC S"0«OUTINE TO LOCATE THE C28IRE0 SECTOR 

/RETURN FROM FJNDTR SUBROUTINE 



/NO STEPS REO'JIREO 

/SOFT HtAD LO'O BIT TO SR7 



/IS HEAD LOADFDT 

/YES, GO UPDATE CURRENT CONTROL 

/r»0, GO LOAD he»D AND WAIT FOR 20MS SETTLE TIHe 
/RETURN ADOR FROM DLV25 SUBROUTINE 



/POINTER FROM GfTWORD SUBROUTINE TO 
/FUNCTION OECOE 

/POINTER TO DRV* CHECK DONE AFTER RECALABRATE 



/SPARE LOCATIONS 

/OPEN 

/OPEN 

/OPEN 



/RX01 FLOPPY CONTROLLER FIRMWARE 
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597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

U7 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

6411 

645 

646 

647 

648 

649 

650 

651 



0400 0214 

0401 0075 

0402 0064 



0403 
0404 
0405 

0406 



0410 
0411 

0412 
0413 
0414 
0415 
0416 



0420 
0421 
0422 
0423 
0424 
0425 
0426 

0427 

0430 



0070 
0407 
0202 
0103 



0407 0061 



0140 
0503 

0214 

0071 
0006 
0075 

0074 



0417 0234 



0057 
0056 
0056 
0056 

0056 
0056 

4054 

0120 

0460 



0031 0070 
0432 0325 



0433 0054 

0434 0054 

0435 0002 

0436 0002 



/ [ROUTlNEl WRITE SECTOR] 

/THIS ROUTINE TURNS ON WRITE GATE AT ^RTTE TURN ON TIME, 

/WRITES A PREAMBLE OF 6 BYTES OF ZEROES, A DATA OR DELETED DATA MARK, 

/THEN TURNS ON ERASE GATE, ENTER WITH CNTR=100 IF 

/DELETED DATA, CNTRsB IF NORMAL DATA M A RK, THE DATA MARK, DATA FIELD, 

/AND ONE BYTE POSTAMBLE ARE WRITTEN, WRITE CURRENT IS TURNED OFF, 

/511 MICRO SECONDS LATER ERASE CURRENT TS TURNED OFF. A HEADER MUST 

/THEN BE READ TO INSURE DISK IS STILL UP TO SPEED BEFORE THE WRITE 

/SECTOR FUNCTION IS COMPLETE, 



CRC 



wRTSEC, OPEN STAT 
LSR 
LSP 

LCT 
SWGATE 

JUMP F0 
FINDTP 

SWGATE, FLAG OFF 

BR WRTEN F 
PRTERR 

OPEN STAT 

ESP 

SET WGATE 

LSR 

ROTATE ZERO 

OPEN TEMPB 

PRECRC 
CRC ONE 
CRC ONE 
CRC ONE 
CRC ONE 
CRC ONE 
CRC ZERO 

BR 3R7 ZERO 
DAMSUP 

LCT 
OCTAL 
325 
DECIMAL 

CRC ZERO 
CRC ZERO 
DISK 
DISK 



/DEL DATA BIT TO STAT6 

/CALL SUBROUTINE TO FIND DESIRED TRACK AND SECTOR 

/ALWAYS START WRITING WITH WRITE FLOP CLEARED 
/GO REPORT ERROR IF NO WRITE ENABLE 

/DEL DATA BIT TO 5R7 AND ENABLE WRT CURRENT 



/USE TEMPB FOR SECOND HALF DATA AM PATTERN 

/JAM THE CRC GENERATOR WITH FIRST 6 BITS OF DATA AM 



/DELETED DATA? 

/NO, REGULAR DATA MARK 

/YES, SECOND HALF OF DELETED DATA MARK TO CNTR 

/FLUX PATTERN 

/JAM LAST 2 BITS OF DELETED DATA MARK TO CRC GEN, 

/NOOP 
/NOOP 



/csrs rLc;pv cc*T8clu« firmure 
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*':» 








eos 


C337 


»e»3 


st«sn« Tt« fU( 


to* 








fcC3 


C6C3 


tits 


LIB 


ec» 


fsa| 


tC6« 


tBP 


B57 








tC3 


tzti 


C97t 


tCT 


eo» 


tzi>3 


CH66 


«LFCt» 


t£» 


f£.fi« 


C97S 


LSD 


est 








6S2 


C665 


B37» 


LCT 


6^3 


C606 


es7a 


-3*1 


e&a 


Ct.07 


C071 


ICT 


669 


CC53 


• 126 


br cori. r 


666 


east 


8aa7 


.-« 


667 


r«S2 


ect»2 


DISK 


666 








669 


C653 


eeTa 


LCT 


670 


c«s« 


6391 


-22-1 


671 








672 


C655 


SC63 


TOG FLAB 


67J 








67a 


C056 


C212 


JU*P F2 


679 


C097 


1122 


•RTC8 


676 








677 


BO60 


ee7e 


DAHSUP, LCT 


678 






OCTAL 


ft79 


e»6t 


0337 


337 


680 






DECIMAL 


661 








602 


0062 


0056 


CPC ONE 


663 


3463 


reS6 


C«C OKE 


660 








665 


Cuba 


0206 


JUMP Fl 


666 


0465 


0<t37 


STASH 


667 








668 


k"«66 


00P2 


HLFCLV* DISK 


669 








690 


2«67 


ee7B 


LCT 


691 


0070 


0514 


«hTOAM 


692 


0471 


0075 


LSP. 


693 








69a 


C472 


P070 


LCT 


695 


0473 


0351 


-22-1 


696 


eu7a 


007B 


LCT 


697 


BU75 


0351 


-22-1 


696 








699 


P476 


007U 


LCT 


720 


0477 


0351 


-22-1 


701 








702 


0500 


0063 


TOG FLAG 


703 








704 


0501 


0212 


JUMP F2 


705 


0502 


1322 


*RTi2S 


706 









/e«* cr t« rt»9f a bit 

/PUT StCOKD HAL* Of THE CESIBIO «A9K IN f«E TCC9S 
/SET fcP e*T|ff* PCO" <MirB IteCB C^CJTIWE 

/STALL I.B •»!«•» 8EC0W0S 

/*CCP 

/SPECIFY 22 ZF«»*8 TO C£ ttfWCM BY M57C3 CUS3CMTIKI 

/*BITE SEC0K9 CLCCK TRAK3ITICN 
/CALL i 9ITE Zea^S BUCaCUTSKE 

/LOAD SECOND «ALF OF ttSaNAl OATA NARK 

/JAP LAST 2 6TT8 OF DATA NARK TO CCC CSKSftATOR 
/CO PUT *M».'tir SECOND HALF OF THE DATA NARK 

/NOOP 

/SET UP PETUR" FROM WRITE ZEROS SUBROUTINE 



/r-OOP «(ASTE ,* "ICRO SECONDS 

/NOCP 
/NOOP 
/NOOP 

/SPECIFY 22 BITS TO BE WRITTEN BY WHTBS CUDROUTINE 



/WRITE THE 25TH CLOCK TRANSITION 
/CALL WRT0S SUBROUTINE 



/RX01 FLOPPY CONTROLLER FIRMWARE 
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707 

708 

7e9 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

720 

725 

726 

727 

720 

729 

733 

731 

732 

733 

73a 

755 

7S6 

737 

7 S3 

TS9 

JC3 

To I 

7C2 

703 

7ca 

TC9 

tea 

TC7 

TC3 
Tc9 
TC3 
T51 
7Z3 
7C3 
7Sa 
7C3 
IZb 
TD7 
7C3 
739 
703 
7BI 



0503 0070 



0504 0010 



PRTERR, LCT 



CS05 
0506 

0537 

0510 
0511 
0512 
0513 



0075 
0214 
0064 

0070 
0100 
0226 
2610 



0514 
C515 
e516 
C517 
CS20 
C521 

CS22 

C523 

C52A 

6S25 

rs?6 

CS27 
Ba38 

C53I 
CiS2 

C533 

C55a 

C539 

CS.S6 

£937 

E58B 



tele 

0379 

eoTs 

GL'75 
0126 
C516 

eC63 

C07B 

B3S2 

C879 

C2T8 
©378 
C2C2 

«12B 
CS62 

CCM 

CSBS 

P126 
C363 

*87« 

C27J 



OCTAL 

10 

DECIMAL 

LSR 

OPEN STAT 

LSP 

Lcr 

KwPROT 
JUMP F5 
GOERDN 



/SET *R1TE PROTECT BIT OF STAT BECAUSE A WRITE FUNCTION HAS ATTCKPTCO ON 
/ON A WRITE PROTECTED DISKETTE 



/ERROR CODE FPR NRT PROTECT ERROR 



/THIS ROUTINE *ILL hRITE EITHER A DATA «»ARK OR A 
/DELETED DATA M«RK. THE FIRST HALF OF B3TH MARKS ARE 
/IDENTICAL. THE SECOND HALF IS SPECIFIED CCF03E ENTRY BY 
/PUTTING THE SECOND HALF BIT PATTERN TN TEHPD 



iNRTOAK, LCT 
-2-1 



AGAIN, 



A8ACK« 



ICT 

LSR 

6R COFL F 

.-3 

TOG FLAG 

LCT 

OCTAL 

392 

OtCIRAL 
LSR 

LCT 
-7-1 

DISK 

BR SR7 ZERO 

A 

CLR BAR 

T06 FLAB 

BR CCFL T 
SECKLF 

ROTATE 

ICT 



/NASTE 2.0 MICRO 6CC0UD3 



/*PITE A CLOC* "IT A9 Et-0 CF COTM ICRO 
/FIRST HALF CF "ATA RARK PAT1CC3M TO CH 



/BET TRAKSITI^N LC8P CC^TCR FC3 LCC79 

/S.CCP 

/MHATS TKE BIT* 
/ZERO* fcO TRA^3tTICN 

/CfcE* C£CET T«£ CCfFER IZZ9 C£6 TO 

/KRITE FLUX T«9A«-*3STIOM 

/C«CK TRAKSIYltai IX5P CC-JSJT 
760 CET tZZZUn KSLF 

/BHIFT HZK1 TR««.'3tVSCM TO C»7 

/6UPP TRABiSITTOM LC8P CCaSTCB 



/RX0J FLOPPY CONTROLLER FIRMWARE 



PAL10 



762 

763 

764 

765 

766 

767 

766 

769 

770 

771 

772 

77J 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

78fl 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

600 

e?i 

802 

803 

804 

805 

806 

607 

60S 

809 
810 
811 
612 
813 
81<t 
615 
816 



05«1 
0542 

0S43 
0544 
0545 

0546 
0547 



0550 
0551 

0552 
0553 

0554 
0555 

0556 

0557 

0560 
0561 

0562 
0563 

0564 
0565 



8566 
0567 
0570 

0571 
0572 



0206 

0531 

0234 
0071 
0075 

0070 
0370 



0120 
0564 

0063 
0002 

0126 
0566 

0073 

0074 

0206 
0550 

0206 
0535 

0206 
0554 



0022 

KB73 
0073 

0170 
0615 



0573 0056 



0574 
0575 

0576 
0577 



0063 
0B73 

0162 
0624 



JUMP Fl 
AGAIN 

SECHLF, OPEN TEMPB 
ESP 
LSR 

ICT 
-7-1 



AGAINl, BR SR7 ZERO 
8 

TOG FLAG 
DISK 

BbACK, BR COFL T 
WRTDAT 

ICT 

ROTATE 

JUMP Fl 
AGAINl 

A, JUMP Fl 
ABACK 

B, JUMP Fl 
BBACK 



V142A 9-FEB-76 
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/SECOND HALF OF DATA MARK TO SR 

/SET TRANSITION LOOP COUNTER FOR LOOPS 

/SHALL HE WRITE A TRANSITION? 
/NO 

/VE8 

/NOOP 

/DONE DATA MASK? 
/YES, GO WRITE DATA 

/NO, BUMP THE LOOP COUNTER 

/BRING UP NEXT HALF BIT TO SR7 

/DO ANOTHER L"OP 

/WASTE 2 CYCLES TO SKIP FLUX TRANSITION 

/WASTE 2 CYCLfS TO SKIP FLUX TRANSITION 



/THIS ROUTINE WRITES THE CONTENTS OF THF SECTOR BUFFER, 



WRTDAT, SET EGATE 
ICT 
ICT 



/TURN ON ERASE CURRENT AT START OF DATA FIELD 

/NOOPf WASTE 2 CYCLES 

/NOOP 



0600 0046 



DATAA, BR BDATAO ZERO /WHATS THE OATA BIT? 

C /ZERO, GO WRITE NOTHING 

CMC ONE /ONE, UPDATE THE CRC WITH I 

TOG FLAG /WRITE A DATA TRANSITION 

ICT /NOOP FOR BIT CELL TIMING 

CBACK, 3R BAROFLT /DONE ENTIRE SECT0R7 

"RTCRC /YES, GO WRITE THE CRC 

INCR BAR /NO, BRING UP NFXT DATA BIT FROM SEC BUFFER 



/RX01 FLOPPY CONTROLLER FIRMWARE 
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817 
818 
819 
820 
621 
822 
623 
824 
82S 
826 
627 
828 
829 
830 
631 
832 
833 
634 
835 
836 
837 
838 
839 
640 
661 
842 
843 
644 
845 
646 
647 
646 
649 
650 
851 
652 
653 
654 
655 
656 
657 
656 
659 
660 
661 
662 
863 
864 
865 
666 
667 
668 
669 
870 
671 



0601 

0602 
0603 
0604 
0605 



0070 
0376 
0073 
0124 

0620 



3606 0063 



0637 
0610 
0611 
0612 

0613 
0614 

0615 
0616 
0617 



0620 
0621 
0622 
0623 



0070 
0377 
0124 
0620 

0206 
0571 

E4054 
0206 
0576 



0070 
0060 
0226 
2610 



0624 
0625 

0626 
0627 
0630 
0631 



0070 
03S7 

0075 
0002 

0120 

0620 



0632 0063 



0633 

0634 
0635 
e636 
0637 
0640 

0641 
0642 

0643 
0644 



0076 
007* 
0076 
0076 
0120 
0620 

0130 

0653 

0056 
0063 



SELFER, 



LCT 

-2 

ICT 

BR COFL F 

SELFER 

TOG FLAG 

LCT 
-1 

BR COFL F 
SELFER 

JUMP Fl 
DATAA 

CRC ZERO 
JUMP Fl 
CBACK 



LCT 

KSELFER 
JUMP FS 
GOERDN 



/NOOP - WASTE 5 CYCLES WITH 

/NOOP - A SELF TEST OF THE COUNTER 

/NOOP 

/NOOP 

/NOOP 

/WRITE A CLOCK TRANSITION 

/NOOP - WASTE 4 CYCLES WITH 

/NOOP - A SELF TEST OF THE COUNTER 

/NOOP 

/NOOP 

/GO WRITE ANOTHFR DATA BIT 



/UPDATE CRC WIT" AND SKIP DATA TRANSITION 



/A SELF DIAGNOLTIC HAS FAILED 



/THIS ROUTINE WRITE8 THE 16 BIT CRC GENERATED FOR THE 
/PRECEEDING DATA FIELD, 



WRTCRC, LCT 

-16-1 

LSR 
E, DISK 

BR SR7 ZERO 
SELFER 

TOG FLAG 

ROTATE ONE 

ROTATE ONE 

ROTATE ONE 

ROTATE ONE 

BR SR7 ZERO 
SELFER 

BR CRC16 ZERO 
D 

CRC ONE 

TOG FLAG 



/PRESET BIT COUNTER FOR 16 BITS 

/NOOP WASTE 4 CYCLES ANO SELF TEST THE SR 

/NOOP 

/NOOP 

/NOOP 

/WRITE A CLOCK TRANSITION 

/NOOP WASTE 6 CYCLES WITH MORE SELFTEST 

/NOOP 

/NOOP 

/NOOP 

/NOOP 

/NOOP 

/WHAT IS THE CRC BIT 

/ZERO, DO NOT WRITE ANYTHING 

/ONE, BRING UP THE NEXT BIT 

/WRITE A DATA TRANSITION 



/«*0l FLOPPY CONTROLLER FIRMWARE 
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672 

S7S 
874 
679 
676 
677 
676 
679 
680 
661 
662 
661 

ee« 

86S 

66* 

687 

666 

669 

690 

691 

892 

69) 

694 

695 

69b 

897 

B90 

899 

9d0 

9ej 

902 

903 

900 

905 

906 

907 

908 

929 

910 

911 

912 

915 

910 

915 

916 

917 

918 

919 

920 

92 J 

922 

923 

924 
925 
926 



0645 

0646 

0647 
0650 



0651 
0652 

0653 
0654 
0655 



0076 

0073 

0126 
0656 

0206 
0627 

0054 

0206 

0646 



0656 
0657 
0660 
0661 
0662 



0070 
0666 
0075 
0070 
0367 



0663 0063 



F664 
0665 



0212 
1322 



0666 0004 



0667 
0673 
0671 
0672 
l»673 
0674 
0675 



0070 
0676 
0075 
0070 

ezaa 

0212 
1322 



0676 0020 



0677 

0730 
0701 
0702 
0703 
0704 
0705 



f?e70 

e706 
0075 
007? 
0346 
0212 
1322 



DBACK, 



0. 



ROTATE ONE 

ICT 

BR COFL T 

hRTPST 

JUMP Fl 
E 

CRC ZERO 

JUMP Fl 
DBACK 



/NOOP 

/BUMP THE BIT COUNTER 

/CONE CRC TETT 

/its, 60 HRITE A P03TAMBLE 

/NO, GO WRITE AMOTMER CMC BIT 

/BRING UP NEXT CRC BIT AND SKIP DATA TRANSITION 



/THIS ROUTINE WRITES THE ONE BVTE P03*A*BLE, TURNS OFF 
/WRITE CURRENT, DELAYS 511 MICRO SEC »N0 TURNS OFF ERASE 
/CURRENT, IT UTILIZES THE WRITE ZEROES SUBROUTINE, 



0706 0279 



wRTPST, LCT 

CWGATE 
LSR 
LCT 
-8-1 

TOG FLAG 

JUMP F2 
WRT0S 



CWGATE, CL» WGATE 

LCT 

CEGATE 

LSR 

LCT 

•127-1 

JUMP F2 

WRT0S 



CEGATE, CLR EGATE 

LCT 

READOK 
LSR 
LCT 
-25-1 

JUMP F2 . 
WRT0S 

REAOOK, LCT 



/SETUP TO CALL WRT0S TO WRITE 6 BITS OF ZEROES 



/WRITE LAST CLOCK TRANSITION OF THE CRC FIELD 
/CALL THE SUBROUTINE WRITE ZEROES 

/DISABLE WRITE CURRENT 

/CALL WRT0S FOR 127 BITS (511,2 MICRO SEC) 
/DELAY TO ERASE TURN OFF 



/DISABLE ERASE CURRENT 

/CALL WRT08 FOR 2b BIT (101 MICRO SEC) DELAY 
/BEFORE TRYING TO READ 



/CALL FIND HEADPR ROUTINE TO INSURE 



/RX01 FLOPPY CONTROLLER FIRMWARE 



927 
928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

936 

939 

940 

941 

942 

943 

944 

945 

946 

647 

9CB 

949 

950 

951 

952 

953 

954 

955 

956 

957 

956 

959 

960 

961 

962 

963 

964 

965 

966 

967 

966 

969 

970 

971 

972 

973 

974 

975 
976 
977 
976 
979 
980 
961 



0707 0712 

0710 0216 

0711 1400 

0712 0212 

0713 1C06 



0714 0270 

0715 B075 

0716 0064 

0717 0260 

0720 0070 

0721 0313 



0722 
0723 

0724 
0725 
0726 
0727 

0730 
0731 

0732 
0733 

0734 

0735 
0736 

0737 
0740 
0741 

0742 

0743 

0744 
0745 
0746 
B747 
0750 
0751 
0752 
0753 



0075 
0064 

0070 
0730 
0216 

1400 

0174 
0743 

0260 
0071 
0073 

0124 
0722 

0070 
0070 
0226 
2610 

0070 
0345 
0073 
0124 
0745 
0073 
0124 
07S0 
0073 



GODCNE 
JUMP F3 
FINDHD 

GODONE, JUMP F2 
OKDONE 
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/THAT THE DISK TS STILL MOVING 

/WRITE SECTOR FUNCTION IS COMPLETE 



/(SUBROUTINE! FINDSECTOR] 



/?m r^rl 1 NE „ , ° A SPECIFIC SECTOR. ENTER WITH RETURN ADDRESS 
^{ S N I R J, DESIRED TRACK ADDRESS IN TARTRK AND DESIRED SECTOR ADD 
/IN TARSEC. THIS SUBROUTINE ASSUMES T H »T THE TARGET TRACK HAS AL 



/BEEN REACHED 

FINDSE, OPEN RTNA 
LSR 
LSP 

OPEN TEMPG 

LCT 

-52-1 

AGAIN2, LSR 
LSP 

LCT 

CHKSEC 
JUMP F3 
FINOHD 

CHKSEC, BR FLAGO ZERO 
WAIT 

OPEN TEMPG 

ESP 

ICT 

BR COFL F 

AGAIN2 

NXHOR, LCT 

KNXHOR 
JUMP F5 
GOERDN 

WAIT, LCT 

-26-1 

ICT 

BR COFL F 

.-2 

ICT 

BR COFL F 

.-2 

ICT 



ADDRESS 
ALREADY 



/SAVE RETURN 4D0RESS 

/PRESET SECTOR TRy COUNT TO 52 TRIES 

/STORE SECTOR TRY COUNT 

/CALL SUBROUTINE TO FIND A HEADER 



/CORRECT SECTOR? FLAGol IF NO 
/YE8, GO WAIT FOR PREAMBLE 

/NO, RECALL SECTOR TRY COUNT AND INCREMENT IT 



/52 TRIES MAOF FOR SECTOR YET? 
/NO, TRY ANOTHER SECTOR 

/YES, CANN'T FIND THE SECTOR 



/STALL 323,2 "ICRO SECONDS TO WAIT FOR DATA PREAMBLE 



/RX01 FLOPPY CONTROLLER FIRMWARE 
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982 


0754 


0124 


983 


0755 


0753 


980 






985 


0756 


0270 


986 


0757 


0203 


987 






988 






989 






990 






991 






992 


0760 


0074 


995 


0761 


0074 


994 


0762 


0214 


995 


0763 


0064 


996 






997 


0764 


0070 


998 


0765 


0770 


999 


0766 


0202 


1000 


0767 


0103 


1001 






1002 


0770 


0222 


1003 


0771 


2167 


100U 






1005 






1006 


0772 


0000 


1807 


0773 


0000 


1008 


0774 


0000 


1009 


0775 


0000 


1010 


e776 


0000 


1011 


0777 


0000 



BR COFL F 
.-2 

OPEN RTNA 
JUMP F0 IND 



/RETURN FROH THIS SUBROUTINE AT WRITE TURN ON TIME 
/OF THE DESIRED SECTOR 



/(ROUTINEl READ SECTOR] 



ROSECr 



GOREAD, 



ROTATE ZERO 
ROTATE ZERO 
OPEN STAT 
LSP 

LCT 

GOREAD 
JUMP F0 
FINDTR 

JUMP F4 
READ 












/ZERO THE STAT 



/CALL THE FIND TRACK SUBROUTINE TO LOCATE DB8IRE0 SECTOR 



/GO READ THE DATA FIELD 



/OPEN 

/OPEN 
/OPEN 
/OPEN 
/OPEN 
/OPEN 



FREE LOCATIONS 



/RX01 FLOPPY CONTROLLER 



9J17 



PAGE 9 



1012 






/[ROUTINEI OUMt «NU 


1013 








1014 








1015 


1200 


0020 


EPDONE, CLR DONE 


1016 


1001 


0010 


CLR XREQ 


1017 








1018 


1002 


0000 


INTERF 


1019 








1020 


1303 


0006 


SET ERR 


1321 








1222 


1004 


0212 


JUMP F2 


1023 


1005 


1007 


. + 2 


1024 








1025 


1Z06 


03B« 


OKDONE, CLR ERR 


1026 








1C27 


1037 


0214 


OPEN STAT 


1028 








1029 


1010 


0071 


ESP 


10*0 


1011 


0075 


LSR 


1031 

1032 


1012 


0024 


CLR SHIFT 


1033 


1013 


0020 


CLR DONE 


1034 


1014 


0010 


CLR XREQ 


1035 








1036 


iei5 


0000 


INTERF 


ie37 








1038 


1016 


0030 


CLR SECDAT 


1039 








1040 


1017 


0016 


SET IOOUT 


1041 








1042 


1020 


0070 


LCT 


1043 


1021 


0367 


-8-1 


1044 


ie22 


0026 


SET SHIFT 


1045 


1023 


0024 


CLR SHIFT 


1046 


1024 


0073 


ICT 


1047 


1025 


0074 


ROTATE ZER( 


1048 


1026 


0124 


BR COFL F 


1049 


1027 


1022 


.-5 


1050 








1051 


1030 


0014 


CLR IOOUT 


1052 
1*53 


1031 


0022 


3TD0NE, SET DONE 


1054 


1032 


0070 


LCT 


1055 


1033 


0370 


PFUNCT 


1056 


1034 


0222 


JUMP Ffl 


1057 


1035 


2001 


GETCHD 


1058 








1059 


1036 


0074 


FUNCT, ROTATE 


1060 


1037 


0074 


ROTATE 


1061 


1040 


0074 


ROTATE 


1062 


1041 


0122 


BR SR7 ONE 


1063 


1042 


1044 


.♦2 


1064 


1043 


0061 


FLAG OFF 


1065 








1066 


1044 


0074 


ROTATE 



/SELECT INTERFACE BUSS 
/ASSERT ERROR LINE 
/SKIP NEXT INSTRUCTION 

/NEGATE ERROR LTNE 

/OPEN STAT TO MOVE TO INTERFACE 

/STAT OR ERREG TO SR 

/CLEAR INTERFACE OUTPUT BUFFER 

/SELECT INTERFACE OUTPUT BU5S 

/SELECT SR AS 0*TA LINE SOURCE 

/DEFINE DATA DIRECTION AS OUT (TO INTERFACE) 

/MOVE SR TO INTERFACE SERIALLY 



/NEXT TRANSFER WILL BE FROM INTERFACE 

/FUNCTION IS DONE 

/CALL GET COMMAND SUBROUTINE TO GET NEXT FUNCTION 



/MOVE UNIT SELECT BIT TO SR7 

/FLAG IS ALREADY SET, SAVE UNIT IN FLAG, ON»UNIT 

/GET FIRST FUNCTION BIT TO SR7 



/RX31 FLOPPY CONTROLLER FIRMWARE 
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1067 
1066 


1045 


0120 


BR BR7 ZERO 


1069 


1046 


1C66 


FUNCT4 


1070 
1071 


1067 


0074 


ROTATE 


1072 
1073 


1050 


0120 


e« SR7 ZERO 


1074 


1051 


1057 


FUMCT2 


1075 








1076 
1077 


1052 


0076 


ROTATE 


1076 
1079 


1053 


0120 


BR 8RT ZERO 


1060 


1054 


1107 


EHPTVBUF 


1061 
1062 


1055 


0212 


JU"P F2 


1063 


1056 


1110 


FILLBUF 


106tt 
1085 


1057 


0074 


FUNCT2, ROTATE 


1286 
1087 


1060 


0120 


BR SR7 ZERO 


1268 


1061 


1105 


PROSEC 


111)69 








1090 


1062 


0070 


LCT 


1091 


1063 


0000 





1092 


1064 


0206 


JUMP Fl 


1093 


1065 


0400 


KRTSEC 


1094 
1095 


1066 


0074 


FUNCT4, ROTATE 


1096 








1097 


1067 


0120 


BR SR7 ZERO 


1098 


1070 


1076 


FUNCT6 


1099 








1100 


1071 


0074 


ROTATE 


1101 








1102 


1072 


0120 


BR SR7 ZERO 


1103 


1073 


1224 


RDSTAT 


1104 








1105 


1074 


0212 


JUMP F2 


1106 


1075 


1243 


CLRID 


1107 
1108 


1076 


0074 


FUNCT6, ROTATE 


1109 








1110 


1077 


0120 


BR SR7 ZERO 


1111 


1100 


1275 


RDEREG 


1112 








1113 


• 1101 


0070 


LCT 


1114 






OCTAL 


1115 


1102 


0100 


100 


1116 






DECIMAL 


1117 


1103 


0206 


JUMP Fl 


1118 


1104 


0400 


WRTSEC 


1119 








1120 


1105 


0206 


PRD5EC, JUMP Fl 


1121 


1106 


0760 


RDSEC 



/FUNCTION « 0» CHEATER 
/GET 2ND FUNCTION BIT 

/FUNCTION COOt T8 2 OR 3 

/GET LAST FUNCTION BIT 

/FUNCTION CODE 1 
/FUNCTION CODE « 

/GET LAST FUNCTION BIT 

/FUNCT-ON CODF 3 

/CLR CNTR BIT* TO INDICATE NORMAL DATA 

/FUNCTION 2 

/GET 2ND FUNCTION BIT 

/FUNCTION CODE IS 6 OR GREATER 
/GET LAST FUNCTION BIT 

/FUNCTION 5 

/FUNCTION 4-U^'USED 
/GET LAST FUNCTION BIT 

/FUNCTION 7 

/SET CNTR6 TO INDICATE DELETED DATA 

/FUNCTION 6 

/POINTER TO REA* SECTOR FUNCTION 



1107 0016 

1110 0074 

1111 0074 

1112 021" 

1113 0064 

1114 0210 

1115 0064 

1116 0061 

1117 0044 



/RX01 FLOPPY CONTROLLER FIRMWARE 



1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1109 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1156 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1166 

1169 

1170 

1171 

1172 

1173 

1174 

1179 

1176 
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/IROUTINEl FILL AND EMPTY BUFFER] 
EMPTYBUF.SET IOOUT 



/IOOUT IS CLEARED, SET IT TO INDICATE DATA IS 
/MOVING TO THE INTERFACE 



FILLBUF, RCTATE ZERO 
ROTATE ZERO 
OPEN STAT 
LSP 

OPEN ERREG 
LSP 

FLAG OFF 



1120 
1121 
1122 
1123 
1124 
1125 
1126 

1127 
1130 



0070 
0177 
0158 
1126 
0070 
0277 
0230 

0106 
1210 



1132 
1133 

1134 

1135 
1136 
1137 

1140 



0073 
0075 
0064 

0070 
11«1 
0222 
2312 



1141 0230 

1142 0070 
1103 0367 
1144 0150 

1105 use 

1146 0070 

1147 0363 



/CLEAR STAT 



/CLEAR ERREG 



/NOOP 



CLR BAR SHORT /ADDRESS THE 1ST BIT OF SECTOR BUFFER 



LCT 

-128-1 

BR XIIBIT F 

.♦3 

LCT 

• 64-1 

OPEN TEMPA 

BR I0B30T T 
EMPTVl 



/SET UP BYTE COUNT TO 128 (8 BIT) OR 64 (12 BIT) 



1131 0012 XFRQ, SET XREQ 



ICT 
LSR 
LSP 

LCT 

NEMORD 
JUMP F4 
HAITRN 

NEMORD, OPEN TENPA 
LCT 
-8-1 

BR XIIBIT F 
#♦3 
LCT 
-12-1 



/WHICH FUNCTION IS THIS? 
/EMPTYBUF 

/REQUEST DATA TRANSFER 

/INCREMENT BYTE COUNT AND RESTORE 

/CALL WAITRUN SUBR TO WAIT FOR DATA TRANSFER 



/REOPEN THE BYTE COUNT REGISTER BECAUCE WAITRUN CLOCED IT 
/SET UP BIT COUMT IN CNTR TO B DIT3 OR 12 0IT3 



/RX01 FLOPPY CONTROLLER FIRMWARE 



PAL10 V142A 9-FEB-76 



1177 

1178 

1179 

1180 

1181 

1182 

1183 

MS« 

UBS 

1186 

1187 

1186 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

12P2 

1203 

1201 

1205 

1226 

1207 

1238 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

122a 

1225 

1226 

1227 

1228 

1229 

1239 

1231 



1150 013a B R I0B30T F 

1151 U75 FILL1 



1152 0026 BYTEOUT,SET SHIFT 

1153 0046 INCH BAR 

1154 0024 CL „ SHIFT 
US5 0073 icr 

1156 0124 B R COFL F 

U57 1152 BYTEOUT 

ESP 

BR COFL F 

XFRQ 

SET XREQ 

BR RUN F 
.-1 

CLR XREO 

JUMP F2 
OKDONt 

U7l 3350 fin mrtbUF 

1172 0246 1NCR BAR 

1173 0026 JET SHIFT 

1174 0024 Ci-R Sh i FT 
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1160 0071 

1161 0124 

1162 1131 

1163 0012 

1164 0100 

1165 1164 

1166 sate 

1167 0212 
1170 1C06 



1175 0353 FILL!, START -RTBUF 



1176 
1177 
1230 

1231 

1202 

1203 

12C0 
12BS 

1206 
1237 



0073 
6124 
1171 

0250 

2£46 

P071 
?124 
1131 

3212 

1£36 



ICT 

BR COFL F 

.-7 

FIN MRTBUF 

I«*CR BAR 

ESP 

BR COFL F 

XFR3 

Jv'MP F2 
CKOCVt 



1213 J>P32 E«PTYl, SET SECCAT 



1211 
1212 
1213 



fCT3 
CS75 

6S64 



ICT 
LSR 
LSP 



/WHICH FUNCTION IS THIS? 
/FILLBUF 

/EMPTYBUF, MOve A BYTE FROM SECTOR BUFFER 
/TO INTERFACE SFRIALLY bum- EH 



/CHECK BYTE COUNT 

/NOT DONE, GO REQUEST A OATA TRANSFER 
/DONE, REQUEST TRANSFER OF LAST BYTE 
/WAIT FOR TRANSFER COMPLETION 

/EMPTYB'JF FUNCTION IS COMPLETE 

/END SECTOR BUFQ MRT PULSE (800 NS) 
/ADDRESS NEXT CELL OF SECTOR BUFFER 
/SHIFT NEXT BIT FROM INTERFACE 

/STAPT SECTOR B'IFR MRT PULSE 

/LAST BIT OF »YTE? 

/M>, DO ANOTHER BIT 

/L»5T BIT, ENO SECTOR BUFR MRT PULSE 

/40CRES5 NEXT C?LL OF SECTOR BUFFER 

/CHECK BYTE C3U"T 

/not cone, so err another byte 

/CONE FILLBUF FUNCTION 

/SELECT SECTO» «UFR AS DATA LINE SOURCE 
/INCREMENT AN? «AVE THE BYTE COUNT 



/RX31 FLOPPY CONTROLLER FIRk»ape 



1232 


1214 


0370 


1233 


1215 


0367 


123a 


1216 


2153 


1235 


1217 


1152 


1236 


1220 


0370 


1237 


1221 


0363 


1238 






1239 


1222 


0212 


1240 


1223 


1152 


1241 






1242 






1243 






1244 






1245 






1246 






1247 


1224 


0204 


1248 






1249 


1225 


0036 


1250 


1226 


0070 


1251 


1227 


0000 


1?5Z 






1253 


1230 


0174 


1254 


1231 


1235 


1255 






1256 


1232 


0034 


1257 


1233 


0070 


1258 






1259 


1234 


0200 


1260 






1261 






1262 


1235 


0075 


1263 


1236 


0064 


1264 






1265 


1237 


0070 


1266 


1240 


1765 


1267 


1201 


0226 


1268 


1242 


2640 


1269 






1270 






1271 






1272 


1243 


0214 


1273 


1244 


0071 


1274 


1245 


0075 


1275 






1276 


1246 


0061 


1277 


1247 


0070 


1278 


1250 


0372 


1279 


1251 


0122 


1280 


1252 


1256 


1281 


1253 


0074 


1262 


1254 


0212 


1283 


1255 


1257 


128<l 


1256 


0076 


1265 


1257 


0073 


1286 


1260 


0124 



p*Lie 

LCT 

-6-1 

BR XII8IT F 

BYUOUT 

LCT 

-12-1 

JUKP F2 
BYTECUT 



/CROUTlNEl READ STATUS! 



BDSTAT, OPEN TEMPO 

UNIT ONE 

LCT 



BR FLAGO ZERO 
.♦4 

UNIT ZERO 

LCT 

OCTAL 

200 

DECIMAL 

LSR 

LSP 

LCT 

PNTRDY 
JUMP F5 
CHKRDY 



VI 42 A 9-FEB-7A 9117 PACE «.« 
/SET UP THE BIT COUNT TO 6 BIT8 C» IS DITS 



/GO MOVE 4 BYTE TO INTERFACE 



CLRID, 



ROT, 



OPEN STAT 

ESP 

LSR 

FLAG OFF 

LCT 

•5-1 

BR SR7 T 

,♦« 

ROTATE ZERO 

JUMP F2 

.♦2 

ROTATE ONE 

ICT 

BR COFL F 



/SELECT THE. SOFT UNIT SCRATCH PAD 
/PRESELECT UNIT ONE 



/WHICH UNIT? FLAGcOeUNIT | 
/UNIT I, SKIP UNIT SETUP 

/SELECT UNIT ZERO 



/STORE SOFT U*»IT BIT 

/CALL CHECKRDY SUBROUTINE, RETURN TO CLRID 



/CLEAR INIT DONE BIT OF STAT 
/STATUS TO SHIFT REG 



/END AROUND SHIFT OF FIRST 5 BITS 



/RX01 FLOPPY CONTROLLER FIRMWARE 
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1287 

1268 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1301 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1321 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 



1261 1251 



1262 
1263 

1264 
1265 
1266 
1267 
1270 
1271 



1272 
1273 
1274 



1303 

1304 
1305 
1306 
1307 
1311) 

1311 
1312 
1313 
1314 
1315 



0176 
1272 

0062 
0074 
0070 
0375 
0212 
1251 



0064 
0212 
1006 



1275 0210 

1276 0212 

1277 1010 



1300 0264 

1301 0064 

1302 0075 



0070 
0205 
0073 
0264 
0124 
1305 

0071 

0064 
0075 
0071 
0064 



1316 0073 

1317 0124 

1320 1301 

1321 £223 



• -8 

BR FLAGO T 
GODUN 

FLAG ON 
ROTATE ZERO 
LCT 
-2-1 

JUMP F2 
ROT 



/IF FLAG IS SET THEN ROTATE IS DONE 

/IF NOT, CLEAR INIT DONE AND FINISH ROTATE 



GODUN, LSP 

JUMP F2 
OKOONE 



/RESTORE STAT AMD GO DONE 
/[ROUTlNEi READ ERROR REGISTER] 



RDEREG, OPEN ERREG 
JUMP F2 
OKDONE+2 



/[SUBROUTINE! DELAY] , THI8 SUBROUTINE PROVIDES DELAYS IN MULTIPLES 
/OF .IMS. ENTER WITH RETURN ADDRESS IN THE SHIFT REG, 
/AND MULTIPLIER IN THE COUNTER 



DELAY, 



OPEN 


RTNB 


LSP 






LSR 






LCT 






-122- 


■1 




ICT 






OPEN 


RTNB 


BR COFL 


F 


.-3 






ESP 






LSP 






LSR 






ESP 






LSP 






ICT 






BR CC 


•>fl 


F* 


DtLAYtl 




JUMP 


F4 


IND 



/SAVE THE RETURN ADDRESS 

/MULTPLIER TO SHIFT REGISTER 

/DELAY 490 CYCLES (98 MICRO SECONDS) 



/MOVE MULTIPLIER TO CNTR VIA RTNB 



/INCREMENT THF MULTIPLIER 

/ANY KCKE .IMS LOOPS? 
/YES, GO TO IT 

/NO, RETURN FROM SUBROUTINE 



/RX01 FLOPPY CONTROLLER FIRMWARE 
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1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1368 
1j61 
1362 
1363 
1364 
136S 
1366 
1367 
1369 
1369 
1370 
1371 
1372 
1373 
1370 
13T5 
1376 
1377 
1376 
1379 
1563 
1391 
1302 
1303 
ISO* 
130S 
130* 
1307 
1369 
1SC9 
1598 
1391 
1592 
1S9S 
159a 
1595 
1396 



1322 
1323 



1326 
1327 
1330 
1331 
1332 
1S33 
1334 



1336 
1337 

1349 

13«1 

1342 
1343 

1344 

134S 



134b 
1347 



0274 

0064 



1324 0075 

1325 0230 



0070 
0374 
0073 
0124 
1330 
0060 
C071 



1335 0063 



0064 
0071 

0073 

6975 

*124 

1326 

C274 
0297 



9222 

2919 



1351 9079 

1352 9372 

1353 2129 

1354 1374 

1355 9976 

1356 9122 



/[SUBROUTINE! WRITE ZEROES] 

/THIS SUBROUTINE WRITES A SPECIFIED NUMRER OF ZEROS IF 
/WRITE GATE IS ON, IF WRITE GATE IS OFF IT ACTS AS A 
/DELAY OF N,5 BITS, ENTRANCE IS MADE WITH RETURN ADDRESS 
/In THE SR, NUMBER OF BITS IN THE CNTR, AND A CLOCK 
/TRANSITION OCCURRING IMMEDIATLY PRIOR TO THE JUMP INTO 
/THIS SUBROUTINE, 



«RT0S, 



LOOP, 



OPEN RTN 
LSP 

LSR 

OPEN TEMPA 

LCT 

-3-1 

ICT 

BR COFL F 

.-2 

LSP 

ESP 

TOG FLAG 

LSP 
ESP 

ICT 

LSR 

BR COFL F 
COOP 

OPEN DTK 
JilKP | NO Fl 



room, ju«p f« 

G0T1T 



/SAVE RETURN ADDRESS 

/PUT BIT COUNTER IN SR 

/TEMPA IS THE PATH THROUGH THE SP 

/STALL 2,6 HICRO SECONDS 



/NOOP 
/NOOP 

/WRITE A CLOCK TRANSITION IF MRT GATE 19 SET 
/PUT CIT COUNT TN THE COUNTER 

SIfcCREKENT BIT COUNT 

/PUT UPOATEO GIT COUNT BACK IN SR 

/00*E ALL OUST 
/NO 

/YES, RETURN FR<W SUBROUTINE 
/POINTER TO GFT"03D FROM NAITRUN 



/(ROUTINE! INITIALIZE CONT.J 



1359 0961 TEST2, FLAG OFF 



TEST!, LCT 
•5-1 

TSTAGN, BR SR7 ZERO 
INTER! 
ROTATE ONE 
BR SR7 ONE 



/CLEAR FLAG TO INDICATE RIO 19 BEING TESTED 

/LOCP TO TE8T THAT SR IS 252 6N0 THAT 
/IT CAN BE SHIFTED, 

/TEST FAILURE 



/PX01 FLOPPY CONTROLLER FIRMWARE 



PAL10 



1397 


1357 


1374 


INTER 1 


1396 


1360 


0274 


ROTATE ZERO 


1399 


1361 


3073 


ICT 


1400 


136? 


0124 


8» COFL F 


1001 


1363 


1353 


TSTAGN 


1402 








1401 


1364 


0250 


OPEN R10 


1404 


1365 


0071 


ESP 


1405 


1366 


0075 


LSR 


1406 








1407 


1367 


0074 


ROTATE ZERO 


1406 








1409 


137B 


0176 


BR FLAGO ONE 


1410 


1371 


1350 


TEST2 


1411 








1412 


1372 


eznz 


testdn, jump Fa 


1413 


1373 


0004 


TSTSTN 


1414 








1415 


1374 


0006 


INTERl, SET FHR 


1416 


1375 


0212 


JUMP F2 


1417 


1376 


1031 


STPONE 


1418 








1419 


1377 


0000 


<i 



W142A 9-FEB-76 
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/CONTENTS OF Hi" TO SP, SHOULD BE 125 

/SHIFT SR ONCp TO CHANGE 125 TO 252 

/HAS R10 BEEN TFSTEO ALREADY? 
/NO 

/YES, RETURN T" REMAINING INITIALIZE ROUTINE 
/SELF TEST ERO0*, SET ERROR AND GO SET DONE 

/OPE'. 



/RXiJl FLOPPY CONTROLLER FIRKwARt 
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1420 

1421 
1422 
1423 
1424 
1425 
1426 
1427 
1426 
1429 
1430 
1431 
1432 
1433 

1434 

1435 
1436 
1437 
1438 
1439 

1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1446 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 



1400 
1401 
1«02 

1433 

1424 
lufcb 
1406 
1407 

14 IB 

14H 
1412 

1413 
1414 



0264 
0075 
5V;64 

0230 
5)07*! 
0377 
0075 
0064 

<*2 34 
3070 
0374 

3075 
0064 



1415 0045 



1416 
1417 
1424J 
1421 
1422 

1423 

1424 
1425 

1426 
1427 

1430 
1431 

1432 
1433 

1434 
1435 
1436 
1437 
1440 

1441 

1«42 



0240 
0073 
0347 
0075 

0064 

0070 
0067 
0075 

0346 
1432 

0216 
1667 

0154 
1746 

0071 
0073 
0124 
1421 

0061 

0045 
0070 



/[SUBROUTINE: FINDHEADER A^D FIND DATi ADDRESS MARK] 

/SUBROUTINE TO LOCATE A LEGAL HEADER (CORRECT CRC AND TRACK •) 

/ENTER i-ITH THE RETURN ADDRESS IN CNTR, ALSO ROUTINE TO FIND A DATA MARK 

/OR DELETED DATA MARK, 

/THIS ROUTINE LOCATES A SIX BYTE PREAMBLE OF ZEROES, 

FINDHD, OPEN RTNB /STORE RETURN ADDRESS 
LSR 
LSP 



OPEN TEMPA 

LCT 

-1 

LSR 

LSP 

OPEN TEMPB 

LCT 

-3-1 

TRYAGN, LSR 
LSP 

CLR BAR LONG 

OPEN TEMPO 
LCT 
-24-1 
MORE0S, LSP 
LSP 

LCT 

-2C0-1 

LSR 

WBH SEPCLK T 
.♦3 

JUMP F3 
TIMERR 

BR DE0SR7 F 
NOZERO 

ESP 

ICT 

BR COFL F 

MORE0S 

FLAG OFF 

GETDAM, CLR BAR LONG 

LCT 



/256 TO BAD START INNER COUNT 

/3 TO CNTR FOR "AD START OUTER COUNT, 768 BAD STARTS ALLOWED 

/RESTORE BAD START COUNT 

/RESET FOR A COUNT OF 4096 AS PREAMBLE FAILURE COUNT 
/24 TO CNTR AS ZERO BIT COUNT 

/RESTORE ZERO BTT COUNT 

/PUT IN SR7 FIR DATA COMPARISONS, ALSO CONSTANT FOR 00 KICRO EEC WAIT Kit 

/WAIT 40 MICRQ SECONDS FOR SEP CLK 
/ERROR, NO SEP CLK 



/WHAT IS SEP r>*TA? 

/ONE, GO CHECK PREAMBLE FAILURES 

/ZERO FOUND, CHECK ZERO COUNT 



/NEED MORE ZE"OF.S FOR PREAMBLE 

/FOUND PREAMBLE. CLR FLAG TO INDICATE SEARCH FOR IDAH 

/START SEARCH FOR IDAK OR DATA AM, BAR IS NQSTART COUNTER 

/WAIT 40 MICRO SEC FOR SEP CLK 



/RX01 FLOPPY CONTROLLER FIRMWARE 
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1475 


1443 


PP67 


1476 


IUUI1 


0346 


1477 


1U45 


1U5B 


1476 


1446 


2216 


1079 


1447 


1667 


i«ae 






1461 


1450 


0156 


1482 


1451 


1755 


1463 






1464 


!«52 


0164 


1485 


1453 


1673 


1466 






1487 


1454 


C057 


I486 


1455 


2056 


1469 


1456 


0056 


149B 






1491 


1457 


£070 


1492 


1<*6? 


ee67 


1493 


1461 


e.34t> 


1494 


1462 


1465 


1495 


1463 


e<2i6 


1496 


1464 


1667 


1497 






1498 


1465 


0156 


1499 


1466 


167S 


1530 


1467 


2166 


isei 


147? 


1673 


15C2 






1503 


1471 


0056 


lSf4 


1472 


3156 


isas 


1473 


iC56 


1506 






15B7 


|<I74 


JV7B 


15P8 


1475 


SC67 


1529 


1«76 


0346 


1510 


ltt77 


1522 


1511 


1 SCf! 


3216 


1512 


1501 


1667 


1513 






1514 


1502 


0l5<l 


1515 


1503 


167J 


1516 


153« 


"164 


1517 


J5f>5 


lt,73 


1518 






1519 


15;-fc 


?372 


152i? 


1537 


4'iC3 


1521 


15K' 


.JL'75 


1522 






1523 


1511 


?*7i 


1524 


1512 


0.!67 


1525 


1513 


?iat> 


1526 


151C 


1517 


1527 


1515 


i*£16 


1528 


1516 


1667 


1529 







-200-1 

WBR SEPCLK T 

.♦3 

JUMP F3 

TIMERR 

BR DEQSR7 T 
NOTYET 

BR MCEQSK F 
BADSRT 

PRECRC 
CRC ONE 
CKC ONE 

LCT 

-200-1 

"t'R SEPCtK T 
.♦3 

JUMP F3 
TIMEPW 

BR DEQSR7 T 

BADSRT 

BR "CE5SR T 

biPSHT 

CRC ONE 
C»C ONE 
CRC CKfc 

LCT 

-2e?-i 

►•BR SEPCLK T 

.♦3 

JV? F3 

ps df:sr7 f 

5R .'CE3SR F 

»*CSRT 

LCT 
L5» 

LCT 

-2^-1 

•-es SEPCLK T 

.♦3 

Ju"» F3 

TIl'fcR*. 



/TIMING ERROR 



/WHAT IS SEP TATA? 

/ZERO, GO OETFRMINE IF TO MANY STARTS 

/ONE, MISSING CLOCK? 
/YES, SHOULDN'T HAVE BEEN 

/JAM 1ST TWO FUTS OF CRC 



/WAIT 40 MICR" SECONDS FOR SECOND CELL 



/DATA SHOULD RE 1, MISSING CLK SHOULD BE T 



/JAM 3 rOKfc CC BITS 



/*AIT FOR THI"D BIT CELL 



/DATA SHOULD »E 0, MISSING CL« SHOULD EE F 



/CLEAR SR 



• »AJT fcs 4Th BTT CELL 



/RX01 F L CPPY CONTROLLER FIRMWARE 



1533 


1517 


SI 54 


1S31 


1523 


1673 


1532 


1521 


i»«U2 


1533 


1522 


v?i)42 


1534 


1523 


!!164 


1535 


152u 


1673 


1536 






1537 


1525 


?E70 


1538 


1526 


K267 


1S39 


1527 


0346 


1540 


1530 


1533 


1541 


1531 


3216 


1542 


1532 


le67 


1543 






1544 


1533 


3156 


1545 


1534 


1673 


15«6 






1547 


1535 


.7176 


1546 


1536 


1675 


15 19 






^55^ 


1537 


0164 


1551 


1540 


1673 


155? 






1553 


1541 


K056 


1554 






1555 


1542 


0070 


1556 


1543 


0067 


1557 


1544 


0346 


1558 


1545 


1550 


1559 


1546 


0216 


1560 


1547 


1667 


1561 






1562 


isse 


0156 


1563 


1551 


1673 


1564 


1552 


0164 


1565 


1553 


1673 


1566 






1567 


1554 


0042 


1568 






1569 


1555 


0056 


1570 






1571 


1556 


0370 


1572 


1557 


0067 


1573 


1560 


0346 


1574 


1561 


1564 


1575 


1562 


0216 


1576 


1563 


1667 


1577 






1576 


1564 


0156 


1579 


1565 


1673 


1560 


1566 


0166 


1581 


1567 


1673 


1582 






1583 


1570 


0054 


1584 







PAUL* 

BR 0E5SR7 F 

6ACSPT 

LOHU 

LDHD 

PR ""XE&SR F 

PAOSRT 

LCT 

-230-1 

k?« SEPCLK T 

. + 3 

Jump F3 
TI^EWW 

BR DEQSR7 T 
RADSPT 

clR FLAGO T 
DAM 

BR i"CEQSR F 
BADSRT 

CRC Oi.E 

LCT 

-200-1 

WBR SEPCLK T 

. + 3 

JUMP F3 
TIMERR 

BR DE3SH7 T 

BADSRT 

BR MCEQSR F 

BADSRT 

LDHD 

CRC ONE 

LCT 

-200-1 

WBR SEPCLK T 

.♦3 

JUMP F3 

TIMERR 

3R DEQSR7 T 

BADSRT 

BR MCEQSR T 

BADSRT 

CRC ZERO 
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/oat* should »e e, missing clk should be f 

/NCCP FCR LON^ SEP CLOCK 
/•vOOP FOR LON*; 5EP CLOCK 

/WAIT FOR FIFTH BIT CELL 

/DATA SHOULD B E 1 

/IF FLAG SET FINISH LOOKING FOR DATA AM 

/FINISH IDAM, MTSSING CLK ShOULD BE F 

/JAM 6TH CRC °IT OF IDAM 
/WAIT FOR SIXTH BIT CELL 



/DATA SHOULD *E 1, MISSING CLK SHOULD BE F 

/NOOP FOR LONG SEP CLOCK 
/JAM 7TH CRC «IT OF IDAM 
/WAIT FOR SEVENTH BIT CELL 



/DATA ShOULD n E 1, MISSING CLK SHOULD BE T 



/IDAM FOUND, JAM LAST CRC BIT 



/RX01 FLOPPY CONTROLLER FIRMWARE 
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1585 
1566 
1567 
1568 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1596 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1606 
1609 
1610 
1611 
1612 
1613 
161U 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
162<t 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1636 
1639 



1571 
1572 
1573 

1574 
1575 

1576 
1577 

1600 
1601 

1602 
1603 
1604 

1605 
1606 
1607 



0220 
0071 
0075 

0070 
0367 

0144 
1576 

0156 
1605 

0070 
0216 
1610 

0210 
0076 

0064 



1610 0055 



1624 0055 



/THIS ROUTINE COMPARES THE HEADER TnACK ADDRESS TO THE 
/DESIRED TRACK ADDRESS ON THE FLY. IT IS ENTERED AFTER 
/FINDING THE IDAM, ERREG BIT « IS SET IF AN ERROR IS DETECTED. 



HDRCOM, OPEN TARTRK 
ESP 
LSR 

LCT 
-6-1 

AGAIN3, BR SEPCLK F 
.-I 

BR DE0SR7 T 
.-♦<• 

ROTATE ZERO 
JUMP F3 
. + « 

OPEN ERREG 
ROTATE ONE 
LSP 

DATCRC 



1611 0073 ICT 

1612 0124 BR COFL F 

1613 1576 AGAIN3 

1614 0070 LCT 

1615 0367 -8-1 

1616 0144 AGAIN4, BR SEPCLK F 

1617 1616 ,-1 

1620 0061 FLAG OFF 

1621 0061 FLAG OFF 

1622 0061 FLAG OFF 

1623 0061 FLAG OFF 



DATCRC 



1625 0073 ICT 

1626 2124 BR CUFL f 

1627 1616 AGAIN4 



/TARGET TRACK ADDRESS TO SR 



/SET BIT COUNTS'? TO 8 



/WAIT FOR BIT CELL 



/SEP DATA EQUAL TO SR7T 
/NO, TRACK COMPARE ERROR 

/YES, GET NEXT TRACK ADRESS BIT 



/SET ERREG BIT "I TO INDICATE TRACK ERROR 

/UPDATE THE CC 

/INCREMENT AN* TEST THE BIT COUNTER 

/GO DO NEXT BIT 

/TRACK COMPARED, SET UP BIT COUNTER FOR BYTE 

/WAIT FOR BIT 

/CLEAR FLAG FOR NEXT ROUTINE 
/NOOP FOR LONG SEP CLK 
/NOOP FOR LONG SEP CLK 
/NOOP FOR LONG SEP CLK 

/UPDATE CRC 

/INCREMENT ANn TEST BIT COUNT 

/GO DO ANOTHER «IT 

/CONTINUE 



/RX01 FLOPPY CONTROLLER FIRMWARE 
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1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1646 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1666 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

16A0 

1681 

1662 

1663 

1664 

1685 

1686 

1667 

1688 

1689 

1690 

1691 

1692 

1693 

1694 



1630 0224 

1631 0071 

1632 0075 



1633 

1634 



1641 
1642 

1643 

1644 

1645 
1646 
1647 
1650 

1651 
1652 

1653 
1654 

1655 
1656 
1657 
1660 



1662 
1663 
1664 

1665 
1666 



0070 
0367 



1635 0144 

1636 1635 

1637 0156 
1640 1643 



0216 

1644 

0062 

0074 

0055 
0073 
0124 
1635 

0070 
0347 

0144 
1653 

0074 
0074 
0074 
0074 



1661 £055 



0073 
0124 
1653 

0226 
2515 



1667 0070 

1670 0110 

1671 0226 

1672 2610 



/THIS ROUTINE COMPARES THE HEADER SECTOR ADDRESS WITH THE 
/TARGET SECTOR AOORESS ON THE FLY, IT TS ENTERED FROM 
/THE TRACK COMPARE ROUTINE, A MISMATCH WILL SET THE FLAG, 



OPEN TARSEC 

ESP 

LSR 

LCT 
-6-1 

AGAIN5, BR SEPCLK F 
.-1 

BR DEQSR7 T 
.♦3 

JUMP F3 
.♦2 

FLAG ON 

ROTATE ZERO 

DATCRC 

ICT 

BR COFL F 

AGAIN5 

LCT 
-24-1 

AGAIN6, BR SEPCLK F 
.-1 

ROTATE ZERO 
ROTATE ZERO 
ROTATE ZERO 
ROTATE ZERO 

DATCRC 

ICT 

BR COFL F 

AGAIN6 

JUMP F5 
CKHCRC 



TIMERR, LCT 

KTIMERR 
JUMP F5 
GOERDN 



/TARGET SECTOR ADDRESS TO SR 



/SET UP BIT COUNTER FOR 8 BITS 



/WAIT FOR A BIT 



/MOW DO THEY CO»PARET 
/BAD, GO SET THP FLAG 

/GOOD, SKIP THE ERROR FLAG, 



/SET FLAG TO INDICATE MI3MATCH 

/BRING UP NEXT SIT 

/UPDATE THE CRC 
/BUMP THE BIT COUNTER 
/ALL BITS COMPARED? 
/NO, LOOP BACK 

/YES, SETUP TO WAIT FOR END OF 
/CRC 

/WAIT FOR BIT 



/NOOP FOR LONG SEP CLK 
/NOOP FOR LONG SEP CLK 
/NOOP FOR LONG SEP CLK 
/NOOP FOR LONG SEP CLK 

/UPDATE CRC 

/BUMP THE BIT COUNTER 
/ALL DONE? 
/NO, LOOP BACK 

/YcS, GO CHECK TF CRC IS ALL ZEROES 



/40 MICROSEC PASSED AND NO SEP CLOCK MAS SEEN 



/RX01 FLOPPY CONTROLLER FIRMWARE 
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1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1700 

17«1 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 



1673 
1674 



1675 
1676 



0226 
2555 



0166 
1673 



1677 0054 



1706 0164 

1737 1673 

1710 0042 

1711 0156 

1712 1727 

1713 0056 



1722 et-56 



1727 0254 



BADSRT, JUMP F5 
BDSRT 



DAM, BR MCEQSR T 
BADSRT 

CRC ZERO 



1700 0070 LCT 

1701 0067 -200-1 

1702 0346 MBR SEPCLK T 

1703 1706 .+3 

1704 0216 JUMP F3 

1705 1667 TIMERR 



BR MCEQSR F 
BADSRT 

LDHD 

PR DEQSH7 T 
DELDAT 

CRC ONE 



1714 0070 LCT 

1715 PH67 -2E0-1 

1716 0346 wBR SEPCLK T 

1717 1722 .+3 

1720 [3216 JUMP F3 

1721 1667 TIMERR 



CRC ONE 



17?3 0154 BR DEGSR7 F 

1724 1742 E'«DDAN 

1725 0216 Ju M P F3 

1726 1673 SADSRT 



DELDAT, CRC ZERO 



173t" B070 LCT 

1731 0067 -22*3-1 

1732 0346 WBR SEPCLK T 



/POINTER TO BAOSTART ON IDAM OR DATA AM 



/MISSING CLK SHOULD BE T 

/JAM 6TH CRC "IT OF DATA AM 
/WAIT FOR SIXTH BIT CELL 



/MISSING CLK SHOULD BE F 

/NOOP FOR LONG SEP CLK 

/IF DATAsB THEN LOOK FOR DELETED DATA AM 

/JAM 7Th BIT OF DATA AM 

/WAIT FOR SEVFNTH BIT OF DATA AM 



/JAM LAST BIT OF DATA AH 

/DATA SHOULD "iE 1 

/FLAG IS SET TO INDICATE NORMAL DATA MARK 

/LAST DATA BIT WAS BAD 



/JAM 7 TH CRC "IT OF DEL DATA AM 
/WAIT for 7TH CFLL OF DEL DATA AM 



/RX01 FLOPPY CONTROLLER firmware 
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1750 


1733 


1736 




. + 3 


1751 


1734 


0216 




JUMP F3 


1752 


1735 


1667 




TIMERR 


1753 










1754 


1736 


0061 




FLAG OFF 


1755 










1756 


1737 


0054 




CRC ZERO 


1757 










1758 


1740 


0154 




bR DEQSR7 F 


1759 


1741 


lb73 




BAOSRT 


1760 










1761 


1742 


0164 


ENDOAM, 


Bft MCEQSR F 


1762 


1743 


1673 




BADSRT 


1763 










1764 


1744 


0222 




JUMP F4 


1765 


1745 


2206 




UATA 


1766 










1767 










1768 


1746 


0046 


NOZERQ, 


I*CR BAR 


1769 


1747 


0162 




BR BAROFL F 


1770 


1750 


1416 




TRYAGN+3 


1771 










1772 


1751 


0070 


UXPRAM, 


LCT 


1773 


1752 


0120 




KNXPPAM 


1774 


1753 


0226 




JUMP F5 


1775 


1754 


2610 




GOERDN 


1776 










1777 










1778 


1755 


0046 


NOTYET, 


INCR BAR 


1779 


1756 


0K42 




LDHD 


1780 


1757 


0160 




BR 3AROFL F 


1781 


1760 


1442 




GETDAM+1 


1762 










1763 


1761 


0070 


NXIDAM, 


LCT 


1784 


1762 


0130 




KlvXIDAM 


1765 


1763 


0226 




JUMP F5 


1786 


1764 


2610 




GOERDN 


1787 










1788 










1789 


1765 


0212 


PMROY, 


JUMP F2 


1790 


1766 


1243 




CLRID 


1791 


1767 


0212 


PYSRDY. 


JUMP F2 


1792 


1770 


1243 




CLRID 


1793 










1794 


1771 


0212 


PNQRDY, 


JUMP F2 


1795 


1772 


1006 




OKDONE 


1796 


1773 


0226 




JUMP FS 


1797 


1774 


2631 




INTRDY 


1798 










1799 


1775 


0000 







1800 


1776 


0000 







1601 


1777 


0000 







1802 











/CLR FLAG TO INDICATE DELETED DATA MARK 
/JAM LAST CRC BTT OF DEL DATA AM 
/DATA SHOULD «£ 

/MISSING CLK SHOULD BE F FOR BOTH DATA AMS 
/GO PICK UP D*TA FIELD 

/INCREMENT AN<* TEST PREAMBLE FAILURE COUNT 
/OK, TRY AGAIN FOR A PREAMBLE 
/TOO MANY BITS WITH NO ZEROES 



/INCR AND TEST TDAM OR DATA AM START FAILURE COUNT 
/NOOP FIR LONG SEP CLK 

/OK, TRY AGAI^i 

/TOO MANY ZEROES WHILE LOOKING FOR START OF 
/IDAM OR DATA AM 



/POINTERS FRO M CHECKRDY SUBROUTINE TO RDSTAT ROUTINE 



/POINTERS FRO" CHECK ROY TO INITIALIZE ROUTINE 



/OPEN 
/OPEN 

/OPEN 



/BIQl FLOPPY CONTROLLER FIRMWARE 
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ICP5 

tOQU 
IC05 
1CC6 
1007 
16PB 
1009 
1C10 
1011 
1612 

lau 

1810 
1815 
1816 
1617 
1616 
1819 
1820 
1821 
1022 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1632 
1833 
1834 
1835 
1836 
1837 
1838 
1639 
18<I0 
18«1 
1842 
1843 
1844 
1645 
1846 
1847 

184a 

1849 
1650 
1851 
1852 
1853 
1854 
185S 
1856 
1857 



2000 9012 



2m 

2002 

2003 

2004 
2QS5 
2006 
2037 



2011 
2012 

2013 

2014 
2015 

2016 

2317 

2020 

2021 
2022 

2023 
2024 



2B26 
2B27 



0075 

0270 
0064 

2070 
1346 
0222 
2312 



2010 0061 



0004 
0020 

0070 
6367 
0150 
2021 
0P70 
0363 

0112 
2030 

0126 

2041 



2025 0076 



9Z22 

2034 



2030 0063 

2031 B126 

2032 2*41 

2033 0074 

2034 3026 



/(SUBROUTINES I GETMQRD AND GETC0MHAN01 

/SUBROUTINE TO SET Ar. LIGHT BIT KORO PRON THE INTERFACE. 
/IF TALKING TO A PDP6 INTERFACE IN 12 BIT MODE, TKECE 
/•ILL BE FOUR HtANIHGLESS BITS PRECEDING THE DS5ICE0 EIGHT 
/BIT wORO, ENTER THIS SUBROUTINE MlTH T«E RETUSH ACDJJE03 
/IN THE COUNTER, EXIT HITH THE ONES COtOLIHENT CF THE 
/OESIREC *0R0 IN THE SHIFT REGISTER. PARITY IS COMPUTEO AND 
/CHECKED Oh ALL mORDS, 



GETwRD, SET XREQ 

GETC«0, LSR 

OPEN RTNA 
L8P 

LCT 
PGOTIT 

JUMP F4 
fAITRN 

GOTIT, OFF FLAG 

CLR ERR 
CLR DONE 

LCT 

• 8-1 

BR XIIBIT F 

.♦3 

LCT 

•12-1 

HATDAT, 8R DATAIN ONE 
GOTONE 

BR COFL T 
CHKPAR 

ROTATE ONE 

JUMP F4 
NUTHER 



GOTONE, TOG FLAG 

BR COFL T • 
CHKPAR 

ROTATE ZERO 

NUTHER, SET SHIFT 



/REQUEST A NO»D FROM INTERFACE 
/STASH THE RETURN ADDRESS 

/CALL SUBR MATTRN TO WAIT FOR A WORD 

/CLEAR FLAG FOR PARITY CHECK 

/IN CAST RUN mas A RESPONSE TO DONE 

/SET UP BIT C"U"JT IN CNTR. 6 BIT OR |2 BIT 



/WHAT IS THE DATA BITT 
/ITS A ONE, GO SAVE IT 

/ITS A ZERO, WAS IT THE PARITY BIT (9TH BIT)? 
/YES, GO CHEC* PARITY 

/NO SAVE THE DATA BIT COMPLIMENTED IN SR 

/GO SHIFT UP ANOTHER BIT, 



/COMPLIMENT THE PARITY GENERATOR 

/HAS IT THE PARITY BIT? 
/YES, GO CHECK PARITY 

/NO, SAVE THE COMPLIMENTED DATA BIT IN SR 

/SHIFT PULSE AN? INCREMENT BIT COUNT 



/RX01 FLOPPY CONTROLLER FIRMWARE 



1858 


2?35 


0073 


ICT 


1859 


2*36 


0024 


CLR SHIFT 


1860 








1861 


2037 


0222 


JUMP F4 


1862 


zeaa 


2021 


►ATDAT 


1863 








1S6« 








1365 


2941 


0176 


CHKPAR, BR FLAGO CNE 


1666 


2042 


2076 


GOT«RD 


1867 








I860 


2043 


0214 


OPEN STAT 


1069 


2244 


0071 


ESP 


1878 


2045 


0075 


LSR 


1871 








1872 


2046 


0070 


LCT 


1873 


2047 


0J72 


-5-1 


1874 


205* 


0122 


94 SR7 T 


1675 


2051 


21155 


.♦4 


1076 


2?52 


0074 


BOTATE ZERO 


1877 


2*>5S 


•1222 


JUMP F4 


1078 


2054 


2056 


.♦2 


1679 


2CS5 


P076 


ROTATE ONE 


1CB0 


2056 


DC7J 


ICT 


test 


2C57 


0124 


BR COFL F 


1002 


2^.60 


2850 


.-8 


UBS 








icoa 


2?6l 


BC7« 


ROTATE ZERO 


1C8S 


2062 


6076 


ROTATE ONE 


ICO* 








1G07 


2063 


0122 


BR SR7 T 


ICC8 


2264 


2070 


.♦4 


1C09 


2C65 


0074 


ROTATE ZERO 


1090 


2**66 


3222 


Jump Fa 


1891 


2C67 


2071 


.♦2 


1692 


227J 


2076 


ROTATE ONE 


1693 








1094 


2CT1 


006* 


LSP 


1095 








1096 


2072 


0070 


LCT 


1097 


207J 


0210 


KPARER 


1098 


2?7« 


C226 


JUHP F5 


1099 


2275 


2610 


GOERON 


1933 








1931 


2276 


0278 


GOTt.RO, 0«EN RTNA 


1932 


2077 


0283 


JUMP F0 IND 
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/«HERE THERE AN ODD NO, OF ONES? 
/YES, PARITY "AS GOOD 

/NO, STAT TO SR 



/END AROUND SHIFT OF UPPER 5 BITS OF STAT IN SR 



/CLEAR INIT DONE 
/SET PARITY E"ROR 

/END AROUND SHIFT OF CRC ERROR OIT OF STAT IN CE» 



/RESTORE STAT T1 SCRATCH PAD 
/EPfiCCDE FOR PARITY ERROR 

/■ORO "AS COO", EXIT FRO" GEThRD* CETCHD 
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190J 

1904 /[SUBROUTINE! STEPHEAD] 

1905 /THIS SUBROUTINE WILL STEP THE SPECIFIED NUMBER OF TRACKS IN THE 

1906 /SPECIFIES DIRECTION. DIRECTION IS DETERMINED BY ThE hD OIR FLOP 
1907 

1908 /THE NUMBER OF 3TEPS IS IN THE SH. RFT'lRN ADDRESS 13 I* THE CNTn. 

1909 /EXIT IS TO THE RETURN ADDRESS IF HOMP IS DETECTED, EXIT IS TO RETURN 

1910 /PLUS 2 IF THE LAST STEP HAS BEEN TAKEN, AFTER THE LA3T STEP 15 TAKEN* 

1911 /THE HEAD IS LOADED AND A 25MS DELAY T3 EXECUTED FOR HEAD SETTLE TIME 
1912 

1913 
1914 
1915 

1916 2100 3270 STEPHD, OPEN RTNA /STORE RETURN AtDR AND MOVE STEP COUNT TO CNTB 

1917 2101 0064 LSP 

1918 21P2 0075 LSR 

1919 2133 0071 ESP 

1920 2104 0»564 LSP 
1921 

1922 2105 0136 CKHOME, BR HOME T /IS THE HEAD U 0**E? 

1923 2136 2150 OUT /YES, GO EXIT 
1924 

1925 2107 ("073 ICT /NO, INCREMENT STEP COUNT AND STORE IN TEMPA 

1926 2110 0075 LSR 

1927 2111 0230 OPEN TEMPA 

1928 2112 0064 LSP 
1929 

1930 2113 0370 LCT /PASS 30 TO DTLAY SUBR FOR 3MS DELAY 

1931 2114 2124 SECPLS 

1932 2115 0075 LSR 

1933 2116 0070 LCT 

1934 2117 0341 -33-1 
1935 

1936 212P' 0012 SET 5TPHD /ISSUE STEP PULSE 

1937 2121 R010 CLR STPHD 
1938 

1939 2122 0212 JUMP F2 /CALL DtLAY SUBP 

1940 2123 1300 DELAY 
1941 

1942 2124 ?012 SECPLS, SET STPHD /ISSUE SECOND STEP PULSE 

1943 2125 0010 CL« STPHD 
1944 

1945 2126 3370 LCT /CALL DELAY F"R 3MS DELAY 

1946 2127 2135 OUrJSTP . 

1947 2130 0075 LSR 
19ft8 2131 Cfcf70 LCT 

1949 2132 0341 -33-1 

1950 2133 0212 JUMP F2 

1951 2134 1300 DELAY 
1952 

1953 2135 0230 DONSTP, OPEN TEMPA /CHECK STtP C'-'UNT 

1954 213b 0071 ESP 

1955 2137 ?12« BR COFL F 

1956 214C 2105 CKHOME /NOT POKE, GO C^ECK IF HOME 
1957 
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/PONE STEPPING, INCREMENT RETURN ADDRESS BY 2 



/STORE RETURN ADDRESS ALSO START OF 25MS DELAY SUBROUTINE 



1958 


2111 


?.ZTt 




OPEN »TNA 


1959 


2142 


3«)7l 




ESP 


1960 


2143 


0073 




ICT 


1961 


2144 


0073 




ICT 


1962 










1963 


2145 


027B 


DLY25, 


OPEN RTNA 


1964 


2146 


0075 




LSR 


1965 


2147 


0064 




LSP 


1966 










1967 


2152 


0042 


OUT, 


LOHD 


1968 


2151 


2250 




OPEN TE*PE 


1969 


2152 


.?070 




LCT 


1970 








OCTAL 


1971 


2153 


0200 




200 


1972 








DECIMAL 


1973 


2154 


0075 




LSR 


1974 


2155 


0064 




LSP 


1975 










1976 


2156 


0070 




LCT 


1977 


2157 


2165 




DONOLY 


1978 


216C 


0075 




LSR 


1979 


2161 


0070 




LCT 


1980 


2162 


0000 




-255-1 


1981 


2163 


0212 




JUMP F2 


1962 


2164 


1300 




DELAY 


1983 










1984 


2165 


0270 


DONDLY, 


OPEN RTNA 


1985 


2166 


0203 




JUhP F0 IND 


1986 










1987 










1988 










1989 










1990 










1991 










1992 










1993 






/[ROUTINE! READ SEC 


1994 










1995 


2167 


3070 


READ, 


LCT 


1996 


217? 


0374 




-3-1 


1997 


2171 


0234 




OPEN TEMPB 


1998 


2172 


0075 




LSR 


1999 


2173 


0064 




LSP 


2000 










2001 


2174 


0070 




LCT 


2002 


2175 


0207 




-120-1 


2003 


2176 


0073 




ICT 


2004 


2177 


0062 




FLAG ON 


2005 


2200 


0124 




BR COFL F 


2006 


2201 


2176 




.-3 


2007 










2008 


2202 


0073 




ICT 


2009 


2203 


0075 




LSR 


2010 










2011 


2204 


0216 




JUMP F3 


2012 


2205 


1441 




GETDAM 



/LOAD HEAD 

/SET SOFT HD LOAD BIT 



/CALL DELAY S'JBR FOR 25MS DELAY 



/RETURN FROM STTP HEAD OR DELAY 25MS SUBROUTINE 



/3 TT DATA MARK TRY COUNTER 

/STALL FOR 96 MTCRO SEC (3 BYTES) TO AVOID WRT TURN ON SPLASH 
/SET THE FLAG TO SPECIFY DATA AM IN FIND AM ROUTINE 

/CLR COUNTER AND SR 

/GO TRY FIND THF. ADDRESS MASK 
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/THIS ROUTINE FOLLOWS THE DISCOVERY OF » DAT* MARK 0» 

/A DELETED DATA MARK, IT MOVES Th£ K*X* IC24 BITS 

/INTO TmF. SECTOR BUFFER, THEN PICKS U° AND CHECKS THE CRC. 

DATA, CLR BAR /CLEAR THE BU'FFR ADDRESS REGISTER 

BR SEPCLK F /WAIT FOR CLOfK 
.-1 

STAST "RT6UF /START THE WRITF PULSE FOR TMI8 BIT 

DATCRC /UPDATE T*E C C C KITH SEP DATA 

BR 8AR0FL T /IS BUFFER FULL VET? 
GETCRC /YES, GO GET THF CRC 

FIN WRTBUF /NO, END THE "RITE PULSE 

INCH BAR /ADDRESS NEXT SFCTOR BUFFER CELL 

JUMP f-a /LOOP BACK FO° ^EXT BIT 
OATA+1 

GETCKC, FIN kRTBUF /END THE l»RIT* PULSE FOR THE LiST BIT 

LCT /SET BIT COUNT TO 16 FOR 2 BYTE CRC 

-16-1 

BR SEPCLK F /WAIT FOR NEXT on 
.-1 

LDHD /4 N0CP5 FOR I ONG SEP CLOCK 

LDHB 

LOHD 
LOHCi 

DiTCRC /PUT CRC t)IT TN THE CRC GENERATOR 

ICT /INCRfcMENT AN"» TEST BIT COUNT 

3R COFL F 
.-9 /NOT DONE, GET ANOTHER 

OPEN STAT /STATUS TO SH7FT REG 

ESP 

LSR 

BR SK7 T' /END AROUND S*IFT OF DRV RDY BIT OF STAT IN SR 

.♦« 

R'JTATE ZERO 
JU^P F« 
.+2 
ROTATE ONE 

b« FLAGO T /SET DEL DATA BTT OF STAT IF FLAGsB 



2213 






2014 






2015 






2016 






2017 






2016 






2019 


2206 


0044 


2020 






2021 


2237 


0144 


2022 


22 IP 


2207 


2023 






2024 


2211 


0053 


2025 






2026 


2212 


0055 


2027 






zeze 


2213 


0162 


'2029 


2214 


2221 


2030 






2031 


2215 


0050 


2032 






2033 


2216 


0046 


2030 






2835 


2217 


0222 


2036 


2220 


2207 


2037 






2038 


2221 


0050 


2039 






2040 


2222 


0P7B 


2041 


2223 


0357 


2042 






2043 


2?2« 


?144 


2044 


2225 


2224 


2045 






2046 


2226 


0042 


2047 


2227 


0ki4i 


2048 


2230 


3042 


2049 


2231 


0042 


2050 






2051 


2232 


0055 


2052 


2253 


0073 


2053 


2234 


0124 


2054 


2235 


2224 


2e55 






2056 


2236 


0214 


2057 


2237 


0071 


2058 


22«0 


3075 


2059 






2060 


2241 


3122 


2F61 


2242 


2246 


2062 


2243 


00 7 4 


2063 


224 u 


0222 


2!"6u 


224$ 


2247 


2065 


2246 


2P76 


2066 






2067 


2247 


0176 
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2068 


2250 


2254 


. + 4 


2i!69 


2251 


0076 


ROTATE ONE 


2070 


2252 


<»222 


JUMP F4 


21371 


2253 


2255 


.+2 


2072 


2254 


ae-74 


ROTATE ZERO 


2073 








2074 


2255 


3270 


LCT 


2075 


2256 


f"372 


-5-1 


2P76 


2257 


0122 


BH SR7 T 


2077 


2263 


226U 


.+4 


2078 


2261 


0374 


ROTATE ZERO 


2079 


2262 


P222 


JU«P F4 


seats 


2263 


2265 


.+2 


2k?91 


2264 


0076 


ROTATE ONE 


2C82 


2265 


Ct-73 


ICT 


2083 


2266 


0124 


bR COFL F 


2064 


2267 


2257 


.-8 


2085 








2086 


2270 


c_i ui 7 fei 


LCT 


2087 


2271 


0357 


-16-1 


20iB 








2e89 


2272 


0132 


BR CRC16 ONE 


2090 


2273 


2304 


DCRCER 


2091 








2092 


2274 


0054 


CRC ZERO 


2093 








209U 


2275 


0073 


ICT 


2095 


2276 


0124 


BR COFL F 


2096 


2277 


2272 


.-5 


2097 








2098 


2300 


0074 


ROTATE ZERO 


2099 








2100 


?3ei 


71064 


LSP 


2101 








2102 


2332 


0212 


JUMP F2 


2103 


2333 


1006 


OKDQNE 


2104 








2105 


2304 


0076 


DCRCER, ROTATE ONE 


2106 








2107 


2305 


0064 


LSP 


2106 








2109 


2306 


0070 


LCT 


2110 


2307 


0200 


KDCRCER 


2111 


2310 


0226 


JUMP F5 


2112 


2311 


2610 


GOERON 



/END AROUND S*IFT OF NEXT 5 BITS OF STAT IN SR 



/SET BIT COUNTER TO 16 FOR CRC TEST 

/IS THIS CRC "IT OK 

/NO, GO REPORT r,ATA CRC ERROR 

/YES, BRING UP ''EXT CRC BIT 

/INCREMENT AN" TEST BIT COUNTER 

/GO CHECK ANOTHFR 

/CRC HAS GOOD, CLR CRC ERR BIT OF STAT IN SR 

/PUT THE STAT-'S WORD BACK IN SCRATCHPAD 

/EXIT TO DONE 

/INSERT 1 INTI CRC ERROR BIT 
/PUT THE STAT WORD BACK 
/ERROR CODE F?R CRC ERROR 
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© 
o 
o 

o 



2113 
2U« 
2119 
2116 
2117 
2116 
2114 
2120 
2121 
2122 
2123 
212« 
2125 
212* 
2127 
2126 
212« 
2130 
2131 
2132 
2133 
2130 
2135 
2136 
2137 
2136 
2139 
21«0 
2131 
2102 
2103 
21«<* 
2105 
2146 
214? 
2146 
2149 
2158 
2151 
2J52 
2153 
2150 
2155 
2156 
2157 
2156 
2159 
2169 
2161 



/[SUBROUTINE! WAIT FOR RUN) 

/THIS SUBROUTINE WILL WAIT FOR RUN. IF 46MS ELAPSES, THE HEAD IS UNLOADED 
/AND THE ROUTINE CONTINUES WAITING FOR RUN, RETURN AOORESS IS PASSED 
/VIA THE COUNTER 



2312 

2313 
2314 

2315 
2316 

2317 
232* 
2321 

2322 

2323 

2324 

2J25 
2326 
2327 
233* 
2331 
2332 
2331 

2334 
2335 
2336 
2337 

2341.' 
23-1 
2342 
2343 

2344 

2345 

2346 



0264 
S1PTS 
0264 

ete2 

2347 

0240 
0070 

eeee 

0075 

0C64 

0302 
2347 
0302 
2347 
("302 
2347 
0302 
2347 

£0*1 
0073 
0124 

2322 

0253 
0«?T3 
0P75 
0064 

0108 
2345 



2347 Bale 



235* 
2351 



0264 
0213 



wAIVRN, OPEN RTNB 
LSR 
LSP 

BR RUN T 
COTRUN 

OPEN TEHPC 
LCT 

BACK* LSR 
LSP 

W8R RUN T 
GOTRUN 
WSR RUN T 
GOTRUN 
WBR RUN T 
GOTRUN 
«BK RUN T 
GOTRUN 

ESP 

ICT 

BR COFL F 

BACK 

OPEN TEMPE 

ICT 

LSR 

LSP 

UMHD 

BR RUN F 
.-1 

G3TRUM, CLR XRE3 

OPEN RTNB 
JUMP IND F2 



/STASH THE RETURN ADDRESS 



/GOT RUN? 



/PRESET LOOP COUNTER TO 



/RE5T0RE LOOP COUNT 



/TIME WHILE WAITING FOR FUN 



/INCREMENT ANH TEST LOOP COUNT 

/46MS NOT ELAPSEO YET 

/TIME IS EXPIOE" («5,B MS), CLEAR THE SOFT HDLO BIT AND UNLOAD THE HEAD 



/WAIT FOR RUN. FOREVER IF NECESSARY 

/IF RUM WAS RESPONSE TO XFREQ 
/RETURN FROM «A T TRUN SUBROUTINE 



a 
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2162 






2163 






2164 






2165 


2352 


P07B 


2166 






2167 


2353 


0252 


2166 






2169 


2354 


0075 


2170 


2355 


C224 


2171 


2356 


P064 


2172 






2173 


2357 


?370 


2174 






2175 


236P 


0125 


2176 






2177 


2361 


0075 


2176 


2362 


P25* 


2179 


2363 


t"C64 


2i«e 






2161 


2364 


0062 


2162 


236b 


tl76 


2163 


2366 


2371 


21C4 


2367 


i!212 


2165 


237C 


1374 


2166 






2167 


2371 


'224 


2168 


2372 


«t«71 


2169 


2373 


?075 


2190 






2191 


2374 


0212 


2192 


2375 


1351 


2193 






2194 






2195 


2376 


0E00 


2196 


2377 


0000 



/IROUTlNEi INITIALIZE CONT.] 
/CONTINUATION OF THE INITIALIZE SELF t£5T 



TEST, 



LCT 

OCTAL 

252 

DECIMAL 

LSR 

OPEN R5 

LSP 

LCT 

OCTAL 

125 

DECIMAL 

LSR 

OPEN R13 

LSP 

FLAG ON 
BR FLAGO T 
.♦3 

Jump F2 
INTER! 

OPEN R5 

ESP 

LSR 

JUMP F2 
TEST1 



/LOAD R5 WITH T?ST PATTERN 252 



/LOAD RIB WITH TEST PATTERN 125 



/5ET FLAG AND TEST IT 

/FLAG FAILURE 
/CONTENTS OF R5 TO SR, 



SHOULD BE 252 



/GO CONTINUE TNIT TEST IN FLO 2 



/OPEN 
/OPEN 
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2197 
2196 
2199 
2220 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2206 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2216 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2226 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2236 
2239 
2240 
220] 

2242 

2243 
2244 
2245 
224b 
2247 
2246 
2249 
2250 
2251 



/[SUBROUTINEl MAGNITUDE COMPARISON] 

/THIS SUBROUTINE COMPARES THE EIGHT BIT NUMBERS IN REGISTERS F AND G 
/ EXIT IS TO THE RETURN ADDRESS IF FsG, IF F«G, RETURN IS TO RTNA+2, 
/IF F>G, RETURN IS TO RTNA+4. CONTENTS OF F AND G ARE UNDEFINED AT 
/THE END OF THE SUBROUTINE 



240P 0230 



2401 
2402 

2403 
2404 

2405 

2406 
24C7 

2410 
2411 



2414 
2415 
2416 

2417 

2426 

2421 

2422 

2423 
2424 
2425 
2426 
2427 

2430 
2431 

2432 
2433 

2434 
2435 
2436 
2*37 
244? 



0070 
0367 

0075 

0064 

0254 
0071 
01875 

0120 
2443 



2412 0076 

2413 0064 



0260 
0071 
0075 

212» 
2432 

e074 

0064 

0230 
007J 

0073 
C124 
2403 

0272 

0203 

?273 
0?71 
Bi'73 
CP73 
0273 
C073 
SJ7S 



MAGCOM, OPEN TEMPA 

LCT 
-8-1 

LSR 
LSP 

OPEN TEMPF 

ESP 

LSR 

BR SR7 ZERO 
TSTG0 

ROTATE ONE 

LSP 

OPEN TEMPG 
ESP 

LSR 

BR SR7 ZERO 
GLESSF 

NEXTG, ROTATE ZERO 

LSP 

OPEN TEHPA 

ESP 

ICT 

BR COFL F 

HAGC0*t3 

OPEN RTNA 
JUMP FB IND 

GLESSF, Of>E* KTNA 
ESP 
ICT 
ICT 
ICT 
ICT 
LSR 



/FOR BIT COUNT 
/BIT COUNT IS 8 

/RESTORE BIT CO'JNT 

/F TO SR 

/TEST F 
/ITS 

/ITS 1, BRING U" NEXT BIT 

/RESTORE F 

/G TO SR 

/TEST G 

/ITS 0, G IS LESS THAN F 

/ITS 1, BRING UP NEXT S BIT 

/RESTORE G 

/INCREMENT ANP TEST BIT COUNT 

/GO COMPARE ANOTHER BIT 

/ALL BITS COMPARED* NO DIFFERENCE 

/G IS LESS THAN F RETURN TO RTNA *4 
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2252 
2253 

2254 
2255 

2256 

2257 

2258 

2259 

226B 

2261 

2262 

2263 

2264 

226S 

2266 

2267 

2266 

2269 

2270 

2271 

2272 

2c73 

2274 

2275 

2276 

2277 

2276 

2279 

2260 

2261 

2262 

2283 

2264 

2285 

2286 

2287 

2286 

2269 

2290 

2291 

2292 

2393 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 



2441 
2402 

2-4J 

2444 

2445 
2aafc 
2447 

245«5 
2«51 

2452 

2453 
2«54 
2455 



2463 
2464 

2465 

2466 
2467 

247a 
2471 

2472 
2473 
2474 
2475 



*2P3 

3C70 

0360 

326d 
4071 
0075 

C12B 

2421 

0276 
0271 
0226 
2436 



2456 C07P 

2457 6050 

2460 0226 

2461 2610 



2462 0230 



0126 
2501 

0064 
0075 
0071 

0126 
2503 

0073 

0064 
0075 
0071 



LSP 

jjhp pa ino 

TST&e, ROTATE ZERO 

LSP 

OPEN TEMPG 

ESP 

LSR 

BR SR7 ZERO 
NEXTG 

OPEN; RTNA 
ESP 

JUHP F5 
GLESSF*« 



/f xas b, enr'G up next bit 

/RESTORE F 
/G TO SR 



/TEST G 

/•4ATCHS F, GO B"ING UP NEXT G BIT 

/G IS LESS THAN F, RETURN TO RTNA *2 



/(SUBROUTINE! FIND TRACK CONT,] 

HO-ERR. LCT /MOKE FOUND BEFORE LAST STEP TAKEN 

KHOKERR 
JUMP F5 
GOERON 



/(SUBROUTINE! DIFFERENCE] 

/THIS SUBROUTINE COMPUTES THE DIFFERENCE BETWEEN TWO EIGHT BIT 

/NUMBERS. ENTER *ITH THE RETURN ADDRESS IN RTN, A IN THE 

/COUNTER AND B IN THE SHIFT REGISTER, E»IT IS MADE WITH THE 

/COMPLIMENT OF THE DIFFERENCE IN THE SHTFT REGISTER, 

/EXIT IS TO RTN IF A»cB, EXIT IS TO »TN>2 IF A<B 



OIF, OPEN TEHPA /OPEN TEMPORARY PATH THRU THE SP 

BR COFL T /HAS A REACHED ALL ONES YETT 

DIFB /YES, GO GET B FOR THE DIFFERENCE 

LSP /NO, GET B 

LSR /A INTO SHIFT RFG 

ESP /B INTO COUNTER 

BR COFL T /HAS B REACHED ALL ONES YETT 

DIFA /YES, GO GET A FOR THE DIFFERENCE 

ICT /INCREMENT B 

LSP /, BRING BACK A 

LSR /B INTO SHIFT REG 

ESP /A INTO COUNTER 
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2S07 

25t?8 
2309 
2310 
2311 
2312 
2313 
2510 
2315 
2316 
2317 
2310 
2319 
2320 
2321 
2322 
2323 
2320 
2325 
2326 
2327 
2338 
2329 
2330 
2331 
2332 
2333 
2330 
2335 
2336 
2337 
2336 
2339 
2300 
2301 
2302 
2303 
2300 
2305 
2306 
2307 
2308 
2309 
2350 
2351 
2352 
2353 
2350 
2355 
2356 
2357 
2358 
2359 
2360 
2361 



2076 
2077 
25?.? 



2501 
25P2 



2503 
2520 
2SC5 

25(76 

2507 
2510 
25U 
2512 
2513 



2515 
2SI6 

2517 
252m 

2521 

2522 

2523 

2520 

2525 
2526 
2527 

253B 
2531 
2532 
2533 

253« 
2535 



PC73 
C226 
2063 



0273 
C203 



227* 
CC71 
0*73 
P?73 

0060 
7275 
?C7l 

0U6O 
3075 



2510 0203 



«!07B 
0357 

2132 

2506 

ea73 

R250 

0120 
2517 

0210 
•3.571 

0075 

0070 
037i? 
007« 
0073 
0120 
2532 



OIFB. 



OIFA, 



ICT 

Ju«P F5 
0IF»1 



OPEN RTNA 
JUMP F0 I NO 



OPE* RTNA 
ESP 

ICT 
1C» 

LSP 
L5» 
ESP 
LSP 
LSR 

Jump fb i^o 



/GO SACK TO trsr « AGAIN 



/B 18 Tr.f. COH»L?«£NT CF THE DIFFERENCE 
/EXIT A>s9 



/A IS ThE COHOtT^ENT CF THE DIFFERENCE 
/INCREMENT THF CETURN ADOSEGS 6V 2 



/RESTORE RETU9N ADORESS TO SCRATCHPAD AlsD A TO SO 



/EXIT A«B 



/[KCUTI'jEI FI*D Ht»Ot« CONT.l 

/THIS ROUTINE CHECKS THE CRC, ANO THE RESULTS OF THE TRACK 

/AND SECTOR COMPARISONS. 



CKhCRCf LCT 

-16-1 



BR CRC16 ONE 
HCRCEK 

ICT 

CRC ZERO 

BR COFL F 
.-5 

OPEN ERREG 

ESP 

LSR 

LCT 

-7-1 

ROTATE ZERO 

ICT 

BR COFL F 

.-3 



/PRESET BIT COU''T TO 16 FOR CRC 

/IS CRC ZERO 

/NO, LOG ERROR AND TRY AGAIN 

/YES, CRC GOO" SO FAR, BUMP BIT CNTR 

/BRING UP NEXT CRC BIT 

/ALL BITS TESTED? 
/NO, BRANCH B»C< 

/YES, CRC WAS GOOD, CHECK TRK COMP 



/ROTATE BIT TO BIT 7 



/DONE ROTATING? 
/NO 
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o 



<o 



«► 



2362 


2536 


0122 


BR SR7 ONE 


2363 


2537 


2542 


TKSKER 


2360 








2365 


25«? 


0260 


OPEN RTN6 


2366 


25«1 


0207 


JUMP Fl IND 


2367 








2366 








2369 








2370 








2371 


2502 


0073 


TKSKER, LCT 


2372 


2S03 


0150 


KTKSKtR 


2373 


2501* 


0226 


JUMP F5 


237« 


2505 


2610 


GOERDN 


2375 








2376 








2377 


2506 


3070 


HCRCER, LCT 


2378 


2507 


0100 


KHC3CER 


2379 


2550 


0275 


LSR 


2380 


2551 


0210 


OPEN ERREG 


2361 


2552 


0060 


LSP 


2362 








2363 


2553 


0226 


JU«P F5 


2380 


2550 


2557 


BADHDR 


2365 








2396 








2387 








2338 








2339 


2555 


0176 


eDSRT, BR FLAGO T 


2390 


2556 


2577 


BADDAM 


2391 








2392 


2557 


0230 


BADHDR, OPEN TENPA 


2393 


2560 


0071 


ESP 


2390 


2561 


0073 


ICT 


2395 


2562 


0075 


LSR 


2396 


2563 


0060 


LSP 


2397 


256« 


0120 


B» COFL F 


2398 


2565 


2615 


PTRYAG 


2399 


2566 


0230 


OPEN TEMPO 


20C9 


2567 


0071 


ESP 


2001 


2570 


0073 


ICT 


2002 


2571 


0120 


BR COFL F 


2003 


2572 


2615 


PTRVAG 


2«Co 


2573 


OC70 


XSTRYS, LCT 


20C5 


2574 


0160 


KX3TRVS 


2006 


2575 


0226 


JJMP F5 


2007 


2576 


2610 


GOERON 


2006 








2009 








2010 


2577 


023a 


SADDAM, OPEN TEMPB 


2011 


26C0 


0071 


ESP 


2012 


2601 


C073 


ICT 


2013 


26L-2 


0075 


LSR 


2010 


2603 


0060 


LSP 


2015 


2600 


0124 


BR COFL F 


2016 


2605 


2617 


PGETOA 



/YES, *AS THE'E A BAD COMPARE 
/YES, GO REPORT A TRACK SEEK ERROR 

/CORRECT TRACK, EXIT FROM FIND HOR SUBR 



/HEADER CRC WAS GOOD BUT TRACK 
/AODRESS DID NOT COMPARE, MUST 
/EXIT TO ERROR 10NE 



/HEADER CRC W*S NOT CORRECT 

/LOG THE ERRO' 

/GO TRY ANOTHER HEADER 

/BAD START ON DATA AM OR IDAM7 

/IDAM, INCREMENT «N0 TEST DAD START IfcKER CCUMT 



/NO CVERFLOm, G1 TRY AKOTKER KE&CER 
/INCREMENT AN" TEST GAD START CUTER CCUMT 



/NO OVERfLOa, Of TRV AGAIN 
/TOO KANT TRIES FCR A K£ADER 



/BAD START ON DATA AM* IKCREKSMT AK9 TEST CfcD CTCRT CCJNT 



/NO OVERFLOW GO TRV FCR DATA AM AGAIN 
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2417 


26t>6 


0070 


NODAM, 


LCT 


2418 


2607 


B17B 




KNODAM 


2419 


26 ie 


e2f? 


GOERON, 


OPEN ERREG 


2420 


2611 


0075 




LSR 


2421 


2612 


3064 




LSP 


2422 


2613 


0212 




JOHP F2 


2423 


26(4 


1000 




EROONE 


2424 










2425 


2615 


0216 


PTRYAG, 


JUMP F3 


2426 


2616 


1413 




TRYAGN 


2427 










2428 










2429 


2617 


0216 


PGETDA, 


JUMP F3 


2430 


2620 


1441 




GETDAM 


2431 










2432 










2433 










2434 






/[ROUTINEI INITIAL 


2435 


2621 


037H 


WRONG, 


LCT 


2436 


2622 


0030 




K*RQNG 


2437 


2623 


0226 




JUMP F5 


2438 


2624 


2610 




GOERQN 


2439 










2440 


2625 


0070 


DNHCALf 


LCT 


2441 


2626 


1771 




PNOHDY 


2442 


2627 


0226 




JUMP F5 


2443 


2633 


2640 




CHKROY 


2444 










2445 


2631 


i3070 


INTRDY, 


LCT 


2446 


2632 


0770 




GCREAD 


2447 


2633 


0274 




OPEN RTN 


2448 


2634 


0075 




LSR 


2449 


2635 


0064 




LSP 


2450 


2636 


0202 




JUMP F0 


2451 


2637 


0252 




BOOT 


2452 










2453 










2454 










2455 











/TRIED 3 I«E8 F*R DATA AM, GO FLAG THE ERROR 



/POINTER TO FTtO A'i IOAH 



/POINTER TO FIN** OATA AM 



/HOME WAS FOU'JO WHILE STEPPING OUT 



/CALL ..HECK RtA*y SUBROUTINE 



/DRV IS REA^Y CALL BOOT SUBROUTINE TO 
/MOVE TO TRACK t, THEN GO TO READ ROUTINE TO 
/PICK UP SECTOR 1 



/PX0t FLOPPY CONTROLLER FIRMWARE 
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2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2166 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 

2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
249a 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 



/[SUBROUTINE: CHECKREADY] 



2642 
26«1 
2642 

2643 

2644 



2646 
2647 

2650 

2651 

2652 
2653 

2654 
2655 
2656 

2657 

2660 

2661 
2662 
2663 

2664 
2665 
2666 
2667 
2670 
2671 
2672 

2673 
2674 
2675 
2676 
2677 



0274 
0075 

0064 

0070 
0375 



2645 0230 



0075 
0064 

0061 

0042 

0070 
0360 

0234 
0075 
0064 

0070 
0327 

0240 
0075 
0064 

0070 
0005 
0116 
2714 
0073 
0124 
2666 

0240 
0071 
0073 
0124 
2662 



/SUBROUTINE TO CHECK THE SELECTED DRIVE TO SEE IF THE 

/DISK IS INSERTED AMD UP TO SPEED. T U IS IS DONE BY CHECKING TO SEE IF 

/THt INTERVAL BETWEEN 2 INDEX PULSES TS BETWEEN 150 MS AND 180 MS. RETURN 

/ADDRESS IS PLACED IN THE COUNTER BEFOrf ENTRY, NOT READY RETURN IS 

/TO THE RETURN ADDRESS. READY RETURN IS TO THE RETURN ADDRESS PLUS 2 



ChXRDY, OPEN RTN 
LSR 
LSP 

LCT 
-2-1 

OPEN TEMPA 

NEi*PAS, LSR 
LSP 

FLAG OFF 

LDHD 

LCT 
-15-1 

STDLY, OPEN TEMPB 
LSR 
LSP 

LCT 

-40-1 

OPEN TEMPO 
SPBACK, LSR 
LSP 

LCT 

-250-1 

BR INDX T 

SAWIND 

ICT 

BR COFL F 

.-4 

OPEN TEMPO 

ESP 

ICT 

BR COFL F 

SPBACK 



/SAVE RETURN »D1RESS 

/2 TO CNTR FOR TNDEX PASS COUNT 

/FOR INDEX PASS COUNT 
/RESTORE INDEX »ASS COUNT 

/CLOSE INDEX WIMQOW 

/TO CLEAR INDFX FLOP 

/FOH 15 TIMES THROUGH 10MS LOOP 

/RESTORE OUTE" fOUNT 

/FOR 40 TIMES THROUGH ,25MS LOOP 

/RESTORE INNEP COUNT 
/WAIT ,25 MS FD" INDEX 
/FOUND INDEX 

/INCREMENT AN1 TEST INNER COUNT 



/RX01 FLOPPY CONTROLLER FIRMWARE 



PAL10 



2511 


2700 


0234 


OPEN TEMPB 


2512 


27.U 


0371 


ESP 


2513 


2702 


0073 


ICT 


2514 


2703 


0124 


BR COFL F 


2515 


2704 


2655 


STDLY+1 


2516 








2517 


2705 


0176 


BR FLAGO ONE 


2510 


2706 


2767 


UNRDY 


2519 








2520 


2707 


0062 


FLAG ON 


2521 








2522 


2710 


B07B 


LCT 


2523 


27n 


8374 


-3-1 


252(1 








2525 


2712 


0226 


JUMP F5 


2526 


2713 


2654 


3TDLY 


2527 








2528 








2529 


?T1« 


0230 


SAWINC OPEN TEMPA 


2530 


2715 


k»C7l 


ESP 


2531 


2716 


0073 


ICT 


2532 


2717 


6124 


BR COFL F 


2533 


2720 


2646 


NEWPAS 


253a 








2535 


2721 


0174 


BR FLAGO ZERO 


2536 


2722 


2767 


UNRDY 


2537 








2538 


2723 


C'274 


OPEN RTN 


2539 


2724 


0071 


ESP 


2500 


2725 


0073 


ICT 


2241 


2726 


0073 


ICT 


25«2 


2727 


,3 1,575 


LSR 


2543 


2730 


etsbu 


LSP 


2504 








2545 


2731 


0214 


OPEN STAT 


2546 


2732 


8071 


ESP 


2547 


2733 


0075 


LSR 


2548 








2549 


2734 


9076 


ROTATE ONE 


2551? 








2551 


2735 


0061 


FLAG OFF 


2552 








2553 


2736 


007(j 


R0T3. LCT 


2554 


2737 


£•■374 


-3-1 


2555 


2740 


0122 


BR SR7 T 


2556 


2741 


2745 


.+4 


2557 


2742 


0074 


ROTATE ZERO 


2558 


£743 


0226 


JUMP F5 


2559 


?7ua 


2746 


. + 2 


256e 


2705 


0,376 


ROTATE ONE 


2561 


2746 


0073 


ICT 


2562 


2747 


0124 


BS COFL F 


2563 


2750 


2740 


.-8 


2564 








2565 


2751 


0176 


BR FLAGO T 
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/INCREMENT ANn TEST OUTER COUNT 



/WAS INDEX WI'JDOW OPEN? 
/YES, NO INDEX "IITHIN 180MS 

/NO, OPEN WINDOW 

/FOR 3 TIMES THROUGH 10 MS LOOP 
/THE klNDOW I? 30 MS WIDE 

/GO LOOK FOR IMOEX 



/INCREMENT AND TEST INDEX PASS COUNT 



/THIS WAS 1ST INDEX, GO LOOK FOR SECOND 

/THIS WAS 2ND TIDEX, WAS THE WINDOW OPEN? 
/NO, INDEX OCCURRED TOO SOON 

/YES, INDEX OCCURRED BETWEEN 150 AMD 180 MS, INCREMENT 
/RETURN ADDRESS BY 2 



/SET CRV RDY "IT OF STAT IN SR 



/FLAG OFF TO INDICATE FIRST PASS 

/END AROUND SHIFT OF THE NEXT 3 BITS OF STAT IN SR 



/WAS IT FIRST 3 OR LAST 3 



/RXai FLOPPY CONTROLLER FIRMWARE 



PAL10 



2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576' 

2577 

2576 

2579 

258P 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

25B9 

259B 

2591 

2592 

2593 

2590 

2595 

2596 

2597 



2752 2764 



2753 
2754 
2755 
2756 
2757 
2766 



0142 
2760 
0074 

aszb 

2761 
ep76 



2761 eC62 

2762 0226 

2763 2736 

2764 e064 



2765 
2766 

2767 
277n 
2771 
277£ 



3274 
3217 

E214 
0P71 
KIJ-.75 

0074 



2773 t,itt> 

2774 2735 



2775 
2776 
2777 



0038 

Ef0f) 
0P00 



EXCHRY 



BR wRTEN F 

.♦4 

ROTATE ZERO 

JUMP K5 

.♦2 

ROTATE ONE 

FLAG ON 
JUMP F5 
R0T3 



EXCHRY, LSP 



UNRCY, 



OPE^ RTN 
JUHP F3 IND 

OPEN STAT 

ESP 

LSR 

ROTATE ZERO 

JUMP F5 
R0T3-1 
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/LAST, GO EXIT 

/UPDATE WRITE PROTECT BIT OF STAT IN SR 



/GO SHIFT AROUND LAST 3 BITS 

/RESTORE THE STAT 

/RETURN FROH CHKRDY SUBROUTINE 

/CLEAR DRV RE*DY BIT OF STAT IN SR 
/GO UPDATE REST OF STAT IN SR 



/OPEN 
/OPEN 
/OPEN 



/RX01 FLOPPY CONTROLLER FIRMWARE 
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0000 lllll 
0100 lllll 



0200 
0300 



lllll 
lllll 



0400 lllll 
0500 lllll 



0600 
0700 



1000 
1100 



lllll 
lllll 



lllll 
lllll 



1200 lllll 

1300 lllll 

1400 Mill 

1500 lllll 

1600 lllll 

1700 lllll 



2000 lllll 

2100 lllll 

2200 lllll 

2300 lllll 

2400 lllll 

2500 lllll 



26PI0 

27aa 



lllll 
lllll 



11111111 
muni 

uiiiiii 
mum 

uuiui 
mum 

mum 
mum 



uuiui 
mum 

mum 

mum 

mum 
mum 

mum 
mum 



mum 
liu mi 

mum 
mum 

mum 
mum 

mum 
mum 



mm 
mm 

uuu 
mm 

mm 
mm 

uuu 
mm 



mm 
mm 

mm 
uuu 

mm 
mm 

mm 
umi 



mm 
uuu 

uuu 
uuu 

uuu 
uuu 

mm 
mm 



mm 

mm 

mm 
mm 

mm 

mm 

mm 
mm 



mm 
mm 

mm 
mm 

mm 

mm 

mm 
mm 



mm 
mm 

mm 
mm 

mm 
mm 

mm 
mm 



mum 
mum 

mum 
mum 

mum 

mum 

mum 
mum 



mum 
mum 

mum 
uuiui 

mum 
mum 

mum 
mum 



mum 
mum 

uuiui 

UUIUI 
llllUll 

mum 

u in in 
mum 



mum 
ilium 

mum 
mum 

mum 

mum 

mum 

ilium 



mum 
uuiui 

uuu n 
mum 

mm it 
mum 

mum 

iiium 



UlllMl 

mum 

iiiuni 
ilium 

miiMi 

inum 

uuu u 
mum 



mum 

ilium 

mum 
mum 

mum 
mum 

mum 
mum 



mum 
mum 

mum 
mum 

mum 
mum 

mum 
mum 



mum 
mum 

mum 

mum 

iiiuni 
mum 

mum 
um in 



mum 
mum 

mum 
mum 

mum 
mum 

mum 
iiiuni 



uuiui 
uiiiiii 

iiiuni 
mum 

mum 
mum 

mum 
mum 



mum 
mum 

mum 

mum 

mum 

mum 

mum 

mum 



3000 
3100 

3200 
3300 

3400 
3503 

3600 
3700 



/RXZt FLOPPY CONTKCLLER FIRi'rfARE 
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4000 
4100 

4200 
4306 

4400 
4500 

460^ 

4700 



5000 
5100 

5200 
5300 

5400 
5500 

5600 

5700 



6000 
6100 

6200 
6300 

6400 
6500 

6600 
6700 



7000 
7100 

7200 
7300 

7400 
7500 



7600 
7700 



/RX01 FLOPPY CONTROLLER FIRMWARE 



PALIO 
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9H7 



A 


0562 


ABACK 


0535 


ABV43 


0344 


AGAIN 


0531 


AGAIN1 


13550 


AGAINa 


0722 


AGAIN3 


1576 


AGAIN4 


1616 


AGAIN5 


1635 


AGAIN6 


1653 


B 


0564 


BACK 


2322 


BADDAM 


2577 


BAOHDR 


2557 


BAOSRT 


1673 


BBACK 


0554 


BDSRT 


2555 


BOOT 


£1252 


BYTEOU 


1152 


C 


0615 


CBACK 


0576 


CEGATE 


0676 


CFINSE 


0351 


CHKPAR 


2041 


CHKRPY 


2640 


CHKSEC 


0730 


CKhCRC 


2515 


CKuCMfc 


2105 


CLRIO 


1243 


CtsGATE 


0666 


D 


0653 


DAM 


1675 


DAMSIIP 


0460 


DATA 


2206 


DATAA 


0571 


DBACK 


0646 


DCRCER 


2304 


DELAY 


1300 


DELDAT 


1727 


DIF 


2462 


DIFA 


2503 


DIF8 


2501 


DLY25 


2145 


DNRCAL 


2625 


DONDLY 


2165 


DONSTP 


2135 


DUNSTP 


0305 


E 


0627 


EMPTYl 


1210 


EMPTYB 


1107 


ENDDAM 


1742 


ERDONE 


10*00 



ERTRK 


0242 


EXCHRY 


2764 


FILLl 


1175 


FILLBU 


1110 


FINDHD 


1400 


FINDSE 


0714 


FINDTR 


0103 


FUNCT 


1036 


FUNCT2 


1057 


FUNCT4 


1066 


FUNCT6 


1076 


GETCMD 


2001 


GETCRC 


2221 


GETDAM 


1441 


GETwRD 


2000 


GLESSF 


2432 


GODONE 


0712 


GODUN 


1272 


GOERDN 


2610 


GOREAD 


077,5 


GOTIT 


2010 


GOTONE 


2030 


GOTRUN 


2347 


GQT*'RD 


2076 


HCRCER 


2546 


HDRCOM 


1571 


HDSETL 


0322 


HLFDLY 


0466 


HOMERR 


2456 


ILTRK 


0206 


IN 10 


12045 


INTER1 


1374 


1KTRDY 


2631 


LOOP 


1326 


MAGCOW 


2400 


MORE0S 


1421 


NEWORD 


1141 


NEWPAS 


2646 


NEXTG 


2421 


NOD AM 


2606 


NCSTPS 


0357 


NOTyET 


1755 


NOZERO 


1746 


A.UTHER 


2034 


MX.DRYE 


0064 


NX OR VI 


007B 


NXHDR 


07 37 


NX I DAK 


1761 


NXPRAM 


1751 


OkDONE 


1006 


CUT 


2150 


PDNRCL 


0372 



PFUNC7 


0370 


PGETDA 


2617 


PGOTI* 


1346 


PNORD* 


1771 


PNTROV 


1765 


PROSEP 


1105 


PRTER" 


0503 


PTRYAC. 


2615 


PUTSEC 


0145 


PUTTR" 


0166 


PYSRO* 


1767 


RCALO* 


0060 


RDERE^ 


1275 


RDSEC 


0760 


RDSTAT 


1224 


READ 


2167 


REAOOl' 


0706 


RECAL' 


0035 


RECAL1 


0034 


RFINT9 


0355 


ROT 


1251 


R0T3 


2736 


SAWIN" 


2714 


SECHLP 


0543 


SECPLS 


2124 


SELFER 


0620 


SPBAC* 


2662 


STASH 


0437 


STDLY 


2654 


STDONE 


1031 


STEPH" 


2100 


8TP0UT 


0275 


S^GAT^ 


0407 


TEST 


2352 


TEST1 


1351 


TEST2 


1350 


TESTD'-' 


1372 


TIMER" 


1667 


TKSKE" 


2542 


TKKEQ 


0246 


TRVAG" 1 


1413 


TSTAG' 1 


1353 


T STG0 


2443 


TSTRT" 


0004 


LUIF 


0134 


UNRDY 


2767 


UONE 


0120 


USAME 


0141 


UZERO 


0127 


WAIT 


0743 


MITR* 


2312 


WATDAT 


2021 



PAGE 16 


-5 


WHCHDR 


§075 


WRONG 


2621 


HRT0S 


1322 


KRTCRC 


0624 


tuRTOAM 


0514 


tHRTOAT 


0566 


WRTP3T 


0656 


*RTSEC 


0400 


XFR3 


1131 


XSTRY3 


2573 



/RX01 FLOPPY CONTROLLER FIRHwABt 
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ERRORS DETECTEDl 
LINKS GENERATED! 
RUN-TIME! 16 SECONDS 
3K CORE USED 



8 
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"THIS MWW6 AND SPECIFHUTlONS, HEREIN, MCE THE 
PROPERTY Of DIGITAL EQUIPMENT CORPORATION AMD SHALL 
NOT BE REPRODUCED Of! COPIED OR USED IN WHOLE OR IN 
PART AS THE BASIS FOR THE MANUFACTURE OR SALE OF 
ITEMS WITHOUT WRITTEN PERMISSION. 
COPYRIGHT© |9 74 IHGITALEWIPMEirrCOfHMATIOr 



NOTES: 



/. UNLESS OTHERWISE SPECIFIED: 

/?. flLl RESISTORS APE I/4W, £S% 

Z. WfiSHEA TO BE USED BETWEEN ZTEMS 57 
RAIO S3 WIIL BE SUPPLIED W/TH THE 
D44C& TARAISISTOP OULY BY G.E. . 

THE WASHER IS OM.Y R£<?UIHE£>' WHEM 

US/MS THE G.E. TYPE rRAAISISTOR. 

3. FOR TEST SEE NOTE ON PAGE 3 OF D-CS-M7727 

4. DEC FKRT * \S-0\<.<X, MW BE USED FOR INSER- 
TION \F 13-01320 IS NOT AVAILABLE. 

5. R32 RES. MAY ALSO BE CHANGED AT SYSTEM 
TEST. 
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Li] 
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SEE NOTE 2 



TjJ 



2® 

I 
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r- 






7473 



73*51 



■wsr 



7^*52 



7*123 



It 



GNO AND 5V ARE USUALLY PIN 7 AND 14 
RESPECTIVELY EXCEPTIONS ARE STATED ABOVE 



IC PIN LOCATIONS 



8 




"THI5 DRAWWG ANO SPECIFICATIONS, HEREIN. AM THE 
PROPERTY OF DRWTAL EQUIPMENT CORPORATION AND 
< -L NOT K REPRODUCED OR COPIED OR USED IN WHOLE 
OR IN PART AS THE RASIS FOR THE MANUFACTURE OR SALE 
OF ITEMS WITHOUT WRITTEN PERMISSION 
C0PVft(GHT©j^4, ORSITAL EQUIPMENT CORPORATION" 



PACTS L/ST 



QTf 



32 



£EF des/smat/oa/ 



DESCH/AT/OU 



X-y C002DWATE HOLE location 



ASSY/ DE/LL HOLE LAYOUT 



c/7, a a 



C9 



ca, c/4 



C/. C2, C4, C/O, C//j c/s 
C/&, C20, C2I, C23, C24 
C26, C27, C29, do, 
C37, C38, C39, 040 C43 

C44, C4S, c'4s . c<f-? 
C49 - est 



C3, CS 



est ess- 



C33 



C7, C&, Cf2, C/3 



CI9, ces, 022,023,03^ 



D4, D7, D9, D/S,0/4 

d/s, d/g, D/7'.pja, a/9 



03, DS.D& OS D/O 
D'I,D2/, 22 



MODULE ECO M/ST02Y 



ETCHED C/2CUIT 30A£0 



CAP 



/fa fS 



P~A£T /JO. 



r-co-m?27-o-4 



D-A»-#>7727-0-S' 



B-MH-M7127-0-& 



D-IA : SOII370-00 



I30 />f 



CAP 



22&££_ 



CAP ■ OlyuS 



CAP &.3/J,* 3 Si/ 



CAP /9Qm/ 



cap . so ,«■* 



CAP .047^* 



CAP .OOS^lS 



/0OOOI6-OC 



/000020 -00 



/00002/- OO 



/OO/G/O -OO 



/0OS3O/Z- OO 



/009433-00 



/ooooao-oo 



/0/0973-3Z 



/00/76S--00 



O/O D£ £>&7/ 



O/ODE D&72. 



D23, Z>24, D2i,,D27 
£>23, Z>29, Z>3£>, ZS3I 
D32, Z>33 



23 20 



D/OOS /A/4004 



D/OCE //J<?742 



/Si/ 



Ql, 22 



£90, e92 — £99 



/■£ 



£ -4/, e.10^, eio€,e)oZ 



e<z, £/4, £/ 7, 

£23, £2-4, e3&, £4G, 
£78, e79,£30, £3/ 
£91, 



£3 — e// 



eso£S7,e&4e7/, e/^ae/// 



£/3,e/<Z, B£-3, £62 
£63, S7S; RlOZ. 



£3S. £36; £3 9, £40 



// j £2, £4, £7, £/2, e/S" 
£IS~, £/0%£2S, £27 
£42, £<?3 



eiode 



S.i i/. 



ess /so '/aw s% 



££S &SC TFW S"/o 



££S /£ 03 M/ S% 



1103309-00 



/IOS27S-00 



/IOS19&-00 



/2 



/3 



14 



/S 



/e. 



I/09SOZ-00 



///07/3- OO 



/3002SO-00 



I300347-00 



/3003&S-00 



£ES I.2K /z*/ S% 



££S 68 yzw S% 



££S /■§-£ y4W S"/o 



/30033S--00 



/30940S-00 



/30O39/-OO 



£es s// '/aw /°/t> 



££S 3.74*: few /°/e 



£/, £20, £ 22, £<?<? 
£4S,£t$7 



£3, £3 7, £3B, KS2 
£SSl ££3, £&6,£72 
£7<Zj £109 £ J/2. 



£32 



£33, £3<f 



£29, ££9 



£SI, £&/, £6S, £73 



£32, £33 



£SO, £3/ 



£SS, £S9, ££7, £74- 

£r/$, H//3 



££S 3.3K. '/i*)A/ S^o 



££S ZO£ y?*/ S*/c 



££S /.2/£ /£»/ '/To 



££S ZZO&.tS't,**' 



££s -*<i+ yaw /"/» 
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NOTES: 

1. SLOT BETWEEN PI-4 FIND PI-5 
CONTAINS fl DUMMY PIN. SLOT 
BETWEEN P2-A«NDPa-5 ALSO CONTAIN? 
fl DUMMY PIN. 

2. NO DOUBLE CRIMPS ALLOWED IN MOLEX 
CONNECTORS) TO MOTOR(S), 

3. ALL WIRES TO 3E *l3flWG UNLESS 
OTHERWISE SPECIFIED, 
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3. INK STAMP ASS' Y NO. 7010718 IN 
FIGVRES, /3 HIGH WHERE SHOWN. 
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NOTES: 



GND AND 5V ARE USUAUY PIN 7 AND 14 
RESPECTIVELY EXCEPTIONS ARE STATED ABOVE 



IC PIN LOCATIONS 



/. unless orHE/ew/SE SfEC/p/so 
p. pll ess/ stoics ase y-?tv 7 isy. 

z. potted /9/se/?j compomeht hot on bop/up. 

3. AT TIME OP MODULE ASSY, ITEM 49 SHOULD 

BE APPLIED BENEHTH <SS,Q3 $ QS. 
4.ATTIME0F ASSEMBLY, Q2.Q3 AND 05 MOUNTING 

HARDWARE MUST BE TORQUE D TO 4T0felNCH POUNDS. 
5. Q4 Q6AND Q7 OUTLINES CORRESPOND TO GENERAL 

ELECTRIC TYPE TRANSISTORS. 
6. FLAT RECTANGULAR WASHER SUPPLIED BY VENDOR 
TO BE MOUNTED UNDER Q2 AND Q5 SCREWHEAD. 
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MODULE UTILIZATION 
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PROCESSOR VARIATION LIST 

SHIPPING LIST 

EIS/FIS 

BA11-M FIELD MAINTENANCE PRINT SET (COMPLETE ) 



THE FOLLOWING PRINT SETS ARE SHIPPED WITH THIS PRODUCT. 

THEY ARE NOT INCLUDED IN THIS PRINT SET. REFER TO A-PL-11/03-0-1. 



MP00049 

MP00495 
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KD11-F FIELD MAINTENANCE PRINT SET 

WITH VARIATIONS AA, AB,BA,BB,CA,CB,DA,DB, 

EA,EB,FA,FB,GA,GB,HA,HB,KA,KB,MA,MB,KC 

KD11-HA FIELD MAINTENANCE PRINT SET 
WITH VARIATIONS SE,SF,SC,SD 

MMV11-A FIELD MAINTENANCE PRINT SET (COMPLETE ) 
WITH VARIATIONS BA,BB,DA,DB,FA,FB,HA,HB 

MSV11-C FIELD MAINTENANCE PRINT SET 
WITH VARIATIONS KA, KB, MA, MB 

MSV11-D FIELD MAINTENANCE PRINT SET 
WITH VARIATIONS BE,SF,SC,SD,KC 

DLV11 FIELD MAINTENANCE PRINT SET 

WITH VARIATIONS AA, AB,BA,BB,CA,CB,DA,DB 
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I FOR 120V: 2 JUMPER5,ITEIH*24,5AMF 
FUSE, !TEM*30, SHIELD (l20v)lTE:M*4, 
AND ROY/ER CORv ITEM *25 ARE 
REQUIRED 70 BE INSTALLED PER THIS 
DPA7JING. 

FOR £4<Jtf- IJUMPER ITEM*24,a.SAMP 
FU5E ,11 EM *3I, SHIELD '240V) ITEM *28 
AND POWER CORD, ITEM "ZC ARE 
REQUIRED TO HE INSTALLED PER THIS 
DRAWING. 

for wiring diagram see sheet 2, 
4. slip item '4c over fan wires before 
soldering £ slip shrink tubing over 
solder conn ^ shrink in place-4 
places. any color shrink o«. 
s slip i inch of item *4i (any color') over 
connecting wires eefore soldering 
to fuse holder. after termination 
is complete, slip tubing over joint 
and shrink. 

to VIEW 8 B WHICH IS PART OF ITEi,1*i: IS 
SAME FOR ITEM 47 EXCEPT THERE APE 
NO SWITCHES IN THIS ASSY. DISREGARD 
VIEW B-B FOR H78Cf-C VARIATION. 
REPLkCE HWSBlNMtt FURWSMED WITH CkF 
(\FKM) BY ITEtASCJ^il.. 
8 U3E FLIT WASHER (Ilf « 17) kS MARINE* 
SURFACE ON CkBt-F. CLM*P FOR POWER 
CORD, AT TOP OF UL SHIELD flTENv 35} 
°l CONNECT GROUND LUG FROM ITEM 2.3 
JhiDER *EF NUT T7E.W io hOLu.KO THE 
BOTTOM OF THE UL SHIELD. 
!0 USF fcOHESWE ,PERW*A fcOHO 2.40 OR 
EQUIVALENT, TO SECURE XTEAN to. 

II FOK OPTIONS M*N NO FANS ( ITCM 9) ARE 
ii'lu. All" FAN HARNEbsCtreM 2o) l.^> 
REPLACED BY MODIFIED FAN HARNESS 
(ITEM 2A). 

2 STAMP(AITERNATEPARTS)WITH H7B0/ 
VARIATION AS APPLICABLE. 
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